INSTANCIAR FORM USANDO MODULO E SUB MAIN-URGENTE
Olá amigos preciso de uma ajuda urgente.
Preciso instanciar um form no VB6, porém eu não posso partir do ponto que um form padrão já exista. Ele tem que ser carregado do zero, usando um módulo apenas, na verdade esse projeto só pode ter módulos, e os forms serão carregados a partir do módulo, posso trocar o modulo por CLASSE também
Podem me ajudar ?
Eu sei que todos vão achar que pra fazer isso basta o código abaixo, mas não é.
Private m_oForm As Form
Private Sub GenerateForm()
Dim oCtl As Control
Set m_oForm = New Form1
End Sub
Nestas linhas estão considerando que o FORM já foi ADD no VB, mas neste projeto não tem form adicionado, só poderá ter form instanciado do zero.
HELP URGENTE.
Preciso instanciar um form no VB6, porém eu não posso partir do ponto que um form padrão já exista. Ele tem que ser carregado do zero, usando um módulo apenas, na verdade esse projeto só pode ter módulos, e os forms serão carregados a partir do módulo, posso trocar o modulo por CLASSE também
Podem me ajudar ?
Eu sei que todos vão achar que pra fazer isso basta o código abaixo, mas não é.
Private m_oForm As Form
Private Sub GenerateForm()
Dim oCtl As Control
Set m_oForm = New Form1
End Sub
Nestas linhas estão considerando que o FORM já foi ADD no VB, mas neste projeto não tem form adicionado, só poderá ter form instanciado do zero.
HELP URGENTE.
ta faltando coisa ai..
testa agora
Private m_oForm As Form
Private Sub GenerateForm()
Dim oCtl As Control
Set m_oForm = New Form1
With m_oForm
[ô]Set form[ô]s width and height
.Width = 5400
.Height = 3300
.ClipControls = True
.Caption = [Ô]Form Gerado via codigo[Ô]
End With
m_oForm.Show vbModal
End Sub
testa agora
Private m_oForm As Form
Private Sub GenerateForm()
Dim oCtl As Control
Set m_oForm = New Form1
With m_oForm
[ô]Set form[ô]s width and height
.Width = 5400
.Height = 3300
.ClipControls = True
.Caption = [Ô]Form Gerado via codigo[Ô]
End With
m_oForm.Show vbModal
End Sub
Grande amigo valeu a intenção mas não é isso.
O que eu preciso é fazer isso através de um módulo. Esse projeto só tem as pastas modules e class modules.
Não tem Forms neste projeto pela qual eu possa usar esse código, eu tenho que instanciar do Zero.
Att.
Grato.
no modulo existe o Main para iniciar o form faça assim:
public sub main()
GenerateForm
end sub
Private Sub GenerateForm()
dim m_oForm As Form
Dim oCtl As Control
Set m_oForm = New Form1
With m_oForm
[ô]Set form[ô]s width and height
.Width = 5400
.Height = 3300
.ClipControls = True
.Caption = [Ô]Form Gerado via codigo[Ô]
End With
m_oForm.Show vbModal
End Sub
public sub main()
GenerateForm
end sub
Private Sub GenerateForm()
dim m_oForm As Form
Dim oCtl As Control
Set m_oForm = New Form1
With m_oForm
[ô]Set form[ô]s width and height
.Width = 5400
.Height = 3300
.ClipControls = True
.Caption = [Ô]Form Gerado via codigo[Ô]
End With
m_oForm.Show vbModal
End Sub
Eu tentei mas ele pede o Form1 pra poder dar continuidade.
Conforme imagem anexo.
Conforme imagem anexo.
NATH4N Muito obrigado por tentar, valeu, mesmo...
Será que alguém mais poderia me ajudar.
Será que alguém mais poderia me ajudar.
onde esta = New Form1 coloque = New Form
ve esse exemplo
http://www.dreamincode.net/forums/index.php?s=fa2546ddbe0cf44840160c0d077dd641&app=core&module=attach§ion=attach&attach_id=10331
http://www.dreamincode.net/forums/index.php?s=fa2546ddbe0cf44840160c0d077dd641&app=core&module=attach§ion=attach&attach_id=10331
Eu testei esse exemplo faz 1 hora, e ele usa o FORM1.
Já tentei também usar o form sem o numero 1, Não dá certo.
Já tentei também usar o form sem o numero 1, Não dá certo.
ERASMOSUD, boa tarde.
Desculpe a minha pergunta, mais resumidamente qual será a finalidade deste projeto??
Desculpe a minha pergunta, mais resumidamente qual será a finalidade deste projeto??
Tópico encerrado , respostas não são mais permitidas