Hola, saludos a todos..
pz con lo poco que se, quiero dar un pequeño aporte,
con algunos codes en V.B.6.0 para los que se incian es este desarrollador de aplicaciones.!!
_______________________________________________________________________________________________________
hacer que el titulo de la ventana cambie a otro y viceversa.le pones el nombre que quieras al form en la propiedad
[Caption](ejemplo: caption="Nuevo")despues agregas un
[Timer1] en tu Formulario, en la propiedad
[Interval] del mismo le pones
(por ejemplo: (Interval=1000) )despues le das un doble click, y le pones:
Private Sub Timer1_Timer()
If me.caption="Nuevo" then
me.caption="Proyecto"
else
me.caption="Nuevo"
End If
End Sub
________________________________________________________________________________________________________
hacer que un text solo acepte numeros.agragas un text y en el evento
[KeyPress] le pones:
Private Sub Text1_KeyPress(KeyAscii As Integer)
Select Case KeyAscii
Case Asc("0") To Asc("9")
Case vbKeyBack, vbKeyReturn, vbKeySpace 'esto es opcional para que acepte las teclas (borrar,b_de_espacio)
Case Else
KeyAscii = "0"
MsgBox "solo se aceptan numeros.!!"
End Select
End Sub
__________________________________________________________________________________________________________
hacer que un text solo acepte letras.agragas un text y en el evento
[KeyPress] le pones:
Select Case KeyAscii
Case Asc("a") To Asc("z")
Case Asc("A") To Asc("Z")
Case Asc("ñ"), Asc("Ñ")
Case vbKeyBack, vbKeyReturn, vbKeySpace 'esto es opcional para que acepte las teclas (borrar,b_de_espacio)
Case Else
KeyAscii = "0"
MsgBox " solo se aceptan letras"
End Select
____________________________________________________________________________________________________________
hacer un formulario Elipse..
para que se vea mucho mejor no escribas nada en la propiedad Caption del form1
y en la propiedad ControlBox del form1 pones =falsecreas un nuevo proyecto y le agregas un módulo (
Click derecho en el Form1 ---> Agregar --> módulo)
luego haces:
en el módulo agregas en las declaraciones generales esto:Option Explicit
'para combertir un formulario en elipse
Public Declare Function CreateRoundRectRgn Lib "gdi32" _
(ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, _
ByVal Y2 As Long, ByVal X3 As Long, ByVal Y3 As Long) As Long
'es un complemento para el que crea la elipse
Public Declare Function SetWindowRgn Lib "user32" _
(ByVal hWnd As Long, ByVal hRgn As Long, _
ByVal bRedraw As Boolean) As Long
y en el modulo en si esto:
Public Sub JuRy_NaVaS()
'convierte al formulario de rectangular a eliptico
'es decir que lo convierte a una elipse
Dim Vconecto As Variant
Dim JuRy As Long
JuRy = CreateRoundRectRgn(10, 0, 320, 230, 200, 150)
Vconecto = SetWindowRgn(form1.hWnd, JuRy, True)
End Sub
'MAS DATOS DE VARIABLES Y DECLARACIONES:
'LaS VaRiAbLeS "Vconecto" y "JuRy" LaS cReA eL pRoGrAmAdOr
'eL pUbLiC SuB "JuRy_NaVaS" TiEnE qUe SeR cReAdO pArA PoDeR
'TrAnSfOrMaR eL fOrMuLaRiO.
'los metodos y propiedades "CreateRoundRectRgn"
'y "SetWindowRgn" SoN rEcOnOsiDaS pOr eL pRoGrAmA.
'lo que esta dentro de la declaracion "Option Explicit"
'es del programa. tienen que ir; para poder transformar
'el formulario en una elipse.
despues lo que te queda por hacer es en el
Form1en el evento
[Load] poner:
Private Sub Form_Load()
JuRy_NaVaS
' que es el pUblic SuB
Me.BorderStyle = 0
End Sub
_________________________________________________________________________________________________________
Muy pronto sigo completando este pequeño podría decir tutorial..
Salu-
D.O.S