Menú

Mostrar Mensajes

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ú

Mensajes - al3

Páginas 1 2 3 4
#11
Programación Visual Basic / Re: ¿Como llamar un control de un UserControl desde un modulo?
14 Enero 2006, 00:04 AM
hmmm. no entendi.
Haber. Yo tengo un proyecto del tipo ActiveX.
Agrego un UserControl con un Label, despues agrego un modulo.
desde el modulo como puedo hacer. ¿UserControl.Label1.Caption?.
#12
Programación Visual Basic / modificar un html. (ServLet en Visual Basic).
7 Enero 2006, 04:04 AM
Hola como puedo hacer dede Visual Basic para poder cambiar una pagina web en html??.
ej:
Código [Seleccionar]

<html>
   <head>
     <title>Console</title>
   </head>
   <body>
     <p><b>¿Como cambio esto desde VB?</b></p>
   </html>
</html>

Yo tengo ese archivo que se llama test.html, y lo que tengo que hacer es poder cambiar lo que esta entre <b></b>.
En un principo parseaba el archivo a mano, pero se complica si tengo que modificar una tabla o algo mas complejo.
Investigando un poco mas el tema encontre una libreria "Microsoft HTML Object Library", que parece estar muy buena y extremadamente completa, pero no hay mucha informacion.
El proyecto final es hacer una especie de mini Servlet en VB.
Gracias.
#13
Programación Visual Basic / Re: Manejar los objetos de un activeX
5 Enero 2006, 05:35 AM
Bueno, ya encontre como hacerlo aca pongo el codigo:
Código [Seleccionar]

'En un Formulario con:
'2 CommandsButtons
'1 TextBox
'1 UserControl (el activeX)
'Uso:
'1) Apretar un par de veces el boton "Agregar Label"
'2) Poner en el textbox un numero que no supere la cantidad 'de 'labels cargados.
'3) Apretar el boton "Cambiar de fondo"

Private Sub Command1_Click()
    UserControl1.AgregarLabel
End Sub
Private Sub Command2_Click()
    UserControl1.CambiarPropiedad Text1.Text, "BackColor", VbLet, vbBlue
End Sub
Private Sub Form_Load()
    Command1.Caption = "Agregar Label"
    Command2.Caption = "Cambiar Color"
    Text1.Text = 0
End Sub

'En un UserControl con:
'1 Label que tenga como index = 0
Dim i As Integer
Public Sub AgregarLabel()
    i = i + 1
    Load Label1(i)
        Label1(i).Top = Label1(i - 1).Top + Label1(0).Height + 2
        Label1(i).Visible = True
End Sub
Public Sub CambiarPropiedad(nCtl As Integer, ProcName As String, CallType As VbCallType, args As String)
    CallByName Label1(nCtl), ProcName, CallType, args
End Sub


Con la funcion CallByName puedo llamar a un metodo y/o propiedad, pero como un String.
Por ej:
Esto: CallByName Label1, "Caption", vbLet, "Hola Mundo"
Es lo mismo que: Label1.Caption = "Hola Mundo"





#14
Programación Visual Basic / Manejar los objetos de un activeX
5 Enero 2006, 04:17 AM
Hola. Estoy haciendo un ActiveX que tiene que hacer y tener lo siguiente.
Lo unico que tiene que tener es un array de labels, inicialmente comienzo con uno solo, Label1(0), y despues los voy cargando dinamicamente con Load Label1(x), etc, etc, etc.
El problema esta en como trabajar con cada label individualmente.
Por ej: En un formulario pongo este ActiveX llamado ALabels.
y puedo hacer lo siguiente. ALabels.Add "NewLabel" y despues hacer, ALabels.Label(0).Caption = "1", ALabels.Label(1).Caption = "1",etc.

codigo de ejemplo:
Código [Seleccionar]

'En un formulario con un label (Label1)
Dim Etiqueta(1) As VB.Label
Private Sub Form_Load()
    Set Etiqueta(0) = Label1(0)
        Etiqueta(0).Caption = "Label 1"
       
        Load Label1(1)
    Set Etiqueta(1) = Label1(1)
        Etiqueta(1).Caption = "Label 1"
End Sub

El codigo de arriba sirve para un Formulario comun, cuando lo llevo a un ActiveX tambien funciona. Por ahora todo bien, el problema es cuando desde un formulario quiero llamar al objeto
Etiqueta(1) del ActiveX o sea: UserControl.Etiqueta(1).Caption. De echo esa instancia ni existe, lo cual esta bien porque esta declarada como Dim = Private, esa instancia es solamente vista por el activeX. Entonces lo que hice fue ponerla publica, pero ahi es donde falla. En cambio si no la pongo como un vector si que funciona.
En fin resumiendo: En un activeX tengo un arrays de labels. ¿como puedo hacer para poder manejarlos desde un formulario?

Código [Seleccionar]

'Formulario
Private Sub Form_Load()
UserControl.Label1(0).Caption = "Label 1"
UserControl.Label1(1).Caption = "Label 2"
UserControl.Label1(2).Caption = "Label 3"
End Sub

'ActiveX
Private Sub UserControl_Initialize()
    Load Label1(0)
    Load Label1(1)
    Load Label1(2)
End Sub






















#15
Programación Visual Basic / Re: ¿Como llamar un control de un UserControl desde un modulo?
4 Enero 2006, 03:55 AM
Perdon, quize poner: !Esto lo necesito urgente!.
#16
Programación Visual Basic / Re: PEdit: Clase para editar archivos ejecutables de Windows
4 Enero 2006, 03:53 AM
hmm, parece estar bueno, talvez quedaria mejor si pusieras las secciones en un TreeView. Es mas talvez todo el formato, y cuando pulsen en uno te muestre un pequeño detalle, modifcar valores, etc.
#17
Programación Visual Basic / ¿Como llamar un control de un UserControl desde un modulo?
4 Enero 2006, 03:48 AM
Hola, ¿Como puedo hacer para poder usar los objetos que estan dentro de un UserControl en un modulo?.
Ej: Tengo un Form, el cual tiene un label, y un modulo. Desde el modulo puedo hacer Form.Label.Caption = "Texto".
Esto mismo lo quiero llevar pero para un UserControl (ActiveX)
Probe haciendo esto: UserControl.Label.Caption, pero no funciona.
¿Como puedo hacer? ¿Se puede hacer? y si no se puede como lo puedo hacer?.
Por favor esto no lo necesito urgente.
Gracias.

#18
Programación Visual Basic / Re: Ayuda con captura de audio
20 Diciembre 2005, 01:02 AM
Yo lo hice algo parecido con estas APIs. 

Declare Function waveInOpen Lib "winmm.dll" (lphWaveIn As Long, ByVal uDeviceID As Long, lpFormat As WAVEFORMAT, ByVal dwCallback As Long, ByVal dwInstance As Long, ByVal dwFlags As Long) As Long
Declare Function waveInPrepareHeader Lib "winmm.dll" (ByVal hWaveIn As Long, lpWaveInHdr As WAVEHDR, ByVal uSize As Long) As Long
Declare Function waveInReset Lib "winmm.dll" (ByVal hWaveIn As Long) As Long
Declare Function waveInStart Lib "winmm.dll" (ByVal hWaveIn As Long) As Long
Declare Function waveInStop Lib "winmm.dll" (ByVal hWaveIn As Long) As Long
Declare Function waveInUnprepareHeader Lib "winmm.dll" (ByVal hWaveIn As Long, lpWaveInHdr As WAVEHDR, ByVal uSize As Long) As Long
Declare Function waveInClose Lib "winmm.dll" (ByVal hWaveIn As Long) As Long
Declare Function waveInGetDevCaps Lib "winmm.dll" Alias "waveInGetDevCapsA" (ByVal uDeviceID As Long, lpCaps As WAVEINCAPS, ByVal uSize As Long) As Long
Declare Function waveInGetNumDevs Lib "winmm.dll" () As Long
Declare Function waveInGetErrorText Lib "winmm.dll" Alias "waveInGetErrorTextA" (ByVal err As Long, ByVal lpText As String, ByVal uSize As Long) As Long
Declare Function waveInAddBuffer Lib "winmm.dll" (ByVal hWaveIn As Long, lpWaveInHdr As WAVEHDR, ByVal uSize As Long) As Long


#19
Programación Visual Basic / OCX Botones XP
13 Noviembre 2005, 01:14 AM
Hola estoy buscando algun OCX para VB6 que tenga los botones de windows XP..
#20
Electrónica / como sniffear un Modem Dial-up?¿
14 Junio 2005, 03:50 AM
Hola ¿Como puedo capturar los datos del modem dial-up? quiero ver los bytes que se envian por el modem, que lo tengo con la linea telefonica..
Grax
Páginas 1 2 3 4