Hola, con cualquiera de los 2 podes crear uno, ni idea que es lo que manejas vos mejor, eso miralo vos. en internet tenes ejemplos de como cearlos es solo buscar.
saludos.
saludos.
Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.
Mostrar Mensajes MenúOption Explicit
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As String) As Long
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long
Private Const WM_GETTEXT = &HD
Private Sub Command1_Click()
Dim vHwndPadre As Long, vHwndHijo As Long, vHwndHijo2 As Long
Dim vTexto As String * 256
vHwndPadre = FindWindow("#32770", vbNullString)
vHwndHijo = FindWindowEx(vHwndPadre, 0, "Static", vbNullString)
vHwndHijo2 = FindWindowEx(vHwndPadre, vHwndHijo, "Static", vbNullString)
Call SendMessage(vHwndHijo2, WM_GETTEXT, 256, vTexto)
MsgBox vTexto
End Sub
WebBrowser1.Document.nombredelformularioweb.nombredelcontroltextboxweb.Value = Text1.Text
Cita de: Mr. Crowley en 16 Octubre 2009, 16:07 PM
Private Sub psGuardar_Usuario()
Dim rs As ADODB.Recordset
On Error GoTo Error_Handler
Set rs = New ADODB.Recordset
Call modMySQL.psConectar
With rs
.ActiveConnection = modMySQL.conConexion
.CursorLocation = adUseClient
.CursorType = adOpenDynamic
.LockType = adLockOptimistic
.Open "INSERT INTO tabla(campos) VALUES(valores)"
If .State Then .Close
If modMySQL.conConexion.State Then modMySQL.conConexion.Close
End With
Set rs = Nothing
Exit Sub
Error_Handler:
MsgBox Err.Description & " (" & Err.Number & ").", vbCritical
End Sub
Cita de: olve en 17 Octubre 2009, 01:02 AM
Hola, Dessa
Espero me puedas orientar como puedo mandar mesages desde vb 6.0 a un apagina de internes (escribir texto a un texto de una pagina Web).
Que herramientas serian las mas optimas ???
Saludos
Cita de: m1n05_4 en 16 Octubre 2009, 02:54 AM
Pues, yo no le veo forma de Bodoni :S pero es cierto los números son diferentes a la fuente de Times New Roman. Igual y el que hizo el texto hizo cambio de fuente para los números.
Cita de: m1n05_4 en 15 Octubre 2009, 16:01 PM
Uff, como esas creo que hay montones. De hecho se parece mucho a la times new roman. Aunque bueno, mi vista no es lo que era antes.