vbgopher

Espero que eto te ayude Dim ls_ruta, id ls_ruta = App.Path + "\RECEPCION.HLP" id = Shell("Start " & ls_ruta, 1)

Espero que esto te sirva $ significa String(Texto) -------------------------- Funcion Funcion_1$(x,y) es que la funcion devuelve Texto es equivalente a Funcion Funcion_1(x,y) as string ---------------------------

Private Sub Text1_KeyPress(KeyAscii As Integer) If IsNumeric(Chr(KeyAscii)) Or Not ((KeyAscii >= 65 And KeyAscii <= 90) Or (KeyAscii >= 97 And KeyAscii <= 122)) Then KeyAscii = 0: Beep End If End Sub

Espero que esto te sirva Agrega ala barra de herramientas el control Microsoft Winsock Agrega uno la formulario Private Sub Form_Load() dim StrIP as String StrIP=(Winsock1.LocalIP) MsgBox StrIP End sub VbGopher

Abre un proyecto nuevo En un formulario agrega el control flexgrid A la barra de herramientas - Microsoft FlexGrid Control x.x (C:\Windows\System\MSFLXGRD.ocx) Agraga al Form: 2 textbox 2 labels 1 commandbuton 1 flexgrid ((((((( No modifiques los...

Talvez esto te sirva DefInt A-Z Option Explicit '//For Action parameter in EncryptString Public Const ENCRYPT = 1, DECRYPT = 2 '--------------------------------------------------------------------- ' EncryptString ' Modificado por Harvey T....

¿No entendí tu pregunta? VbGopher!

sencillo usando la propiedad de del scroll value ejemplo private sub hscroll1_scroll() combobox1.listindex=hscroll1.value end sub y a la inversa private sub combobox1_click() hscroll1.value=combobox1.listindex end sub

Bueno creo que requiero una explicion un poco más detallada! VbGopher

Discupa la tardanza mira exactamente yo nunca he hecho eso pero y ahorita por cuestien de tiempo no puedo proporcionarte un código mio pero mira te dejo estas página: http://www.elguille.info/indice.asp lo mejor en visual basic y en especial esta:...