Ha quedado liberada la versión stable de Monodevelop la cual estaré usando para el proyecto de desarrollo con mono.net y esto ha venido ha quedar de maravilla en mi OpenSuse 10.3, así que seguimos con los demás preparativos para poder crear nuestro manual.
también he actualizado la versión de mono.net a la versión más reciente que la 1.9, esperamos el release de la versión 2.0 que en este momento se encuentra en una beta.
acá les dejo el link para la descarga de los paquetes.
estoy casi a punto de comenzar a utilizar mono como plataforma de desarrollo puesto que desde que lo ví he comenzado a familiarizarme con él, y la verdad desde que salió la versión de Monodevelop 10.0 y la implementación de stetic(Diseñador GUI) he visto desde mi punto de vista la muy buena factibilidad de desarrollar un proyecto en ese entorno así que tomo lo siguiente:
-OpenSuse 10.3 (Obviamente porque Suse es desarrollado por Novell al igual que -Mono y Monodevelop)
-Usando Mono 1.2.6
-Monodevelop Beta 3 (18.1)
-Mysql 5.x
-Lenguaje C#
así que no se si alguno de ustedes.. ya ha desarrollado con estos parámentros y si bueno.. ya han desarrollado me gustaría me contacten, yo ya he hecho pruebas de conexión a mysql y todo muy bien. así que podría comenzar con la misma historia de siempre, hacer un manualcito para nuestro proyectito..
Este ejemplo es el mismo que esta publicado en la seccion de visual basic clasico,pero pasado con sus respectivos cambios en las funciones Api’s de .NET, solo se necesita un Timer en el formulario.
Dim Trans As Integer
Const GWL_EXSTYLE = -20
Const WS_EX_LAYERED As Long = &H80000
Const LWA_ALPHA As Long = &H2
Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" _
(ByVal hwnd As Integer, ByVal nIndex As Integer, _
ByVal dwNewLong As Integer) As Integer
Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Integer, ByVal nIndex As Integer) As Integer
Private Declare Function SetLayeredWindowAttributes Lib "user32" (ByVal hWnd As IntPtr, ByVal crKey As Integer, ByVal bAlpha As Byte, ByVal dwFlags As Integer) As Integer
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Me.Show()
Me.Enabled = False
Timer1.Enabled = True
Timer1.Interval = 1
Trans = 255
SetTrans(Me.Handle, Trans)
End Sub
Sub SetTrans(ByVal hwnd As Long, ByVal Trans As Integer)
Dim Tcall As Long
Tcall = GetWindowLong(hwnd, GWL_EXSTYLE)
SetWindowLong(hwnd, GWL_EXSTYLE, Tcall Or WS_EX_LAYERED)
SetLayeredWindowAttributes(hwnd, RGB(255, 255, 0), Trans, LWA_ALPHA)
Exit Sub
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
If Trans 0 Then
Trans = Trans - 1
End If
SetTrans(Me.Handle, Trans)
If Trans = 0 Then
Me.Enabled = True
End
End If
End Sub