últimos mensajes de: al3

Mostrar Mensajes
Páginas: 1 [2] 3 4

11	Programación / Programación Visual Basic / Re: ¿Como llamar un control de un UserControl desde un modulo?	en: 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 / Programación Visual Basic / modificar un html. (ServLet en Visual Basic).	en: 7 Enero 2006, 04:04 am
Hola como puedo hacer dede Visual Basic para poder cambiar una pagina web en html??. ej: Código: <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.

Programación / Programación Visual Basic / Re: Manejar los objetos de un activeX

en: 5 Enero 2006, 05:35 am

Bueno, ya encontre como hacerlo aca pongo el codigo:

Código:

'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 / Programación Visual Basic / Manejar los objetos de un activeX	en: 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: '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: '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 / Programación Visual Basic / Re: ¿Como llamar un control de un UserControl desde un modulo?	en: 4 Enero 2006, 03:55 am
Perdon, quize poner: !Esto lo necesito urgente!.

16	Programación / Programación Visual Basic / Re: PEdit: Clase para editar archivos ejecutables de Windows	en: 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 / Programación Visual Basic / ¿Como llamar un control de un UserControl desde un modulo?	en: 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 / Programación Visual Basic / Re: Ayuda con captura de audio	en: 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 / Programación Visual Basic / OCX Botones XP	en: 13 Noviembre 2005, 01:14 am
Hola estoy buscando algun OCX para VB6 que tenga los botones de windows XP..

20	Informática / Electrónica / como sniffear un Modem Dial-up?¿	en: 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