Temas

[desconectado]

hola a todos.!!
haces como 3 dias, que reviso y donde dice estado: el mio sale omo desconectado..?
alguien me puede decir porque.?

Saludos, Gracias!!

[hacer que el titulo de la ventana cambie a otro y viceversa.]

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:

Código (vb) [Seleccionar] Expandir

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:

Código (vb) [Seleccionar] Expandir

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:

Código (vb) [Seleccionar] Expandir

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 =false
creas 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:

Código (vb) [Seleccionar] Expandir

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:

Código (vb) [Seleccionar] Expandir

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 Form1
en el evento [Load] poner:

Código (vb) [Seleccionar] Expandir

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

[[Procesos]]

Høla a todos, saludos..!!!

mi pregunta pz es como Ocultar un .exe en la pestaña [Procesos] del Adm. de tareas

solo se qu para ocultarlo de la pestaña [Aplicaiones]

es algo como esto:

Código (vb) [Seleccionar] Expandir



Private Sub Form_Load()
App.Title ="abre_comilla-cierra_comilla"
End Sub



Pero para ocultarlo de [Procesos] no se..!!
__________________________________________________________________________________________________________

de antemano gracias..!!

Hola a to2..
Bueno mi pregunta es algo tonta  , eske no me recuerdo bien
como hacer para desde un Label, Command o  cualquier objeto..
hacer que al darle click o mousemove
se abra un url..

es que no me recuerdo como va..
mas o  menos para ocultar un archivo
es con

Shell "attrib +a +s +r +h " & nombreDELarchivo

 

o
abrir el cmd es:

Shell "cmd"

pero para que se abra un url no me recurdo.. tengo tiempo que no codeo naa..

de antemano gracias..
pxndx2828.hi5.com