Visual Basic - Control ActiveX

Life is soft - evento anual de software empresarial
 
Vista:

Control ActiveX

Publicado por JuanMi (7 intervenciones) el 06/02/2001 13:24:14
Buenas, necesito crear copias de un control ActiveX sin tener que agregar diferentes controles en los forms, es decir, si tengo dos forms me interesa ver el control en los dos, manteniendo la información que contiene. Como se puede hacer?
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Control ActiveX

Publicado por Alberto Garea Vidal (1 intervención) el 08/02/2001 10:58:09
aqui tienes un ejemplo de como yo genero copias de un control
Sub FCargaTipoEsta(Vcual As String)
On Error GoTo Errorescargaobjetos
Posicion = 0
FrmCual.Visible = True
Select Case Vcual
Case "Cruces"
FrmTipoUnivar.Visible = False
'FrmCual.Caption = "Cruces"
Numerocontrolescargados = 8
For I = 1 To Numerocontrolescargados
Posicion = Posicion + 270
If I <> 1 Then
Load ChkCual(I) ' este es el control en el formulario solamente existe uno pero yo genero todos los que necesito
ChkCual(I).Height = H: ChkCual(I).Left = L: ChkCual(I).Top = Posicion: ChkCual(I).Width = W
ChkCual(I).Caption = ArrCruces(I)
ChkCual(I).Visible = True
ChkCual(I).Value = False
Else
ChkCual(I).Height = H: ChkCual(I).Left = L: ChkCual(I).Top = Posicion: ChkCual(I).Width = W
ChkCual(I).Caption = ArrCruces(I)
ChkCual(I).Value = False
End If
Next I
Case "Generales"
FrmTipoUnivar.Visible = False
'FrmCual.Caption = "Generales"
Numerocontrolescargados = 3
For I = 1 To Numerocontrolescargados
Posicion = Posicion + 270
If I <> 1 Then
Load ChkCual(I)
ChkCual(I).Height = H: ChkCual(I).Left = L: ChkCual
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar