CRIAR FORM VIA CODIGO NO MODULO

DANLEONHART 14/09/2011 21:27:19
#384288
Pessoal...
Como eu crio um Form via código escrito no Modulo ???
tipo assim...quero criar um via código sem precisar usar o [Ô]Visual[Ô]...somente o codigo mesmo...mas depois de executado, seja apresentado o Form...entendem ???
ASHKATCHUP 14/09/2011 23:15:44
#384294
Você terá que ter um form no seu projeto, mesmo que não usado. Pode criar um form vazio e não chamar ele nunca no programa.

Então, voce instancia um novo objeto e seta as propriedades



Public Sub Main()
    Dim x As New Form1
    [ô]
    x.Caption = [Ô]Teste[Ô]
    [ô]
    x.Width = 3000
    x.Height = 3000
    [ô]
    x.Show
    
End Sub
DANLEONHART 15/09/2011 00:21:00
#384301
Então como faria para criar um Form utilizando o VBScript (Script Host) ?

Pois se escrevo no Bloco de Notas:

p1 = InputBox([Ô]Digite o 1º Valor:[Ô], [Ô]VALOR 1[Ô])
p2 = InputBox([Ô]Digite o 2º Valor:[Ô], [Ô]VALOR 2[Ô])

If p1 = p2 Then
 MsgBox [Ô]Os Valores informados são iguais...[Ô], vbInformation, [Ô]Aviso ![Ô]
ElseIf p1 > p2 Then
 MsgBox [Ô]O 1º Valor é MAIOR que o 2º.[Ô], vbInformation, [Ô]Aviso ![Ô]
ElseIf p1 < p2 Then
 MsgBox [Ô]O 2º Valor é MAIOR que o 1º.[Ô], vbInformation, [Ô]Aviso ![Ô]
End If


e salvo com formato [Ô].vbs[Ô] e executo, é feito uma rotina...posso fazer o mesmo para gerar um Form ???
MARCELO.TREZE 15/09/2011 08:46:51
#384312
sim vc pode porem terá que possuir o visual basic instalado na máquina

veja o exemplo de como fazer

Citação:

VERSION 5.00
Begin VB.Form frmJogo
Caption = [Ô]Form1[Ô]
ClientHeight = 6465
ClientLeft = 120
ClientTop = 450
ClientWidth = 9630
LinkTopic = [Ô]Form1[Ô]
MDIChild = -1 [ô]True
ScaleHeight = 6465
ScaleWidth = 9630
Begin VB.Frame Frame1
Caption = [Ô]Tipo de Jogo[Ô]
Height = 4695
Left = 4680
TabIndex = 1
Top = 0
Width = 4095
Begin VB.OptionButton optJogo
Caption = [Ô]TGVD[Ô]
Height = 495
Index = 13
Left = 1440
Style = 1 [ô]Graphical
TabIndex = 16
Top = 2760
Width = 1215
End
Begin VB.OptionButton optJogo
Caption = [Ô]TG[Ô]
Height = 495
Index = 12
Left = 120
Style = 1 [ô]Graphical
TabIndex = 15
Top = 2760
Width = 1215
End
Begin VB.OptionButton optJogo
Caption = [Ô]DG[Ô]
Height = 495
Index = 11
Left = 2760
Style = 1 [ô]Graphical
TabIndex = 14
Top = 2160
Width = 1215
End
Begin VB.OptionButton optJogo
Caption = [Ô]G[Ô]
Height = 495
Index = 10
Left = 1440
Style = 1 [ô]Graphical
TabIndex = 13
Top = 2160
Width = 1215
End
Begin VB.OptionButton optJogo
Caption = [Ô]TVD[Ô]
Height = 495
Index = 9
Left = 120
Style = 1 [ô]Graphical
TabIndex = 12
Top = 2160
Width = 1215
End
Begin VB.TextBox Text1
Height = 285
Left = 120
TabIndex = 11
Text = [Ô]Text1[Ô]
Top = 3720
Width = 3375
End
Begin VB.OptionButton optJogo
Caption = [Ô]TDz[Ô]
Height = 495
Index = 8
Left = 2760
Style = 1 [ô]Graphical
TabIndex = 10
Top = 1560
Width = 1215
End
Begin VB.OptionButton optJogo
Caption = [Ô]DDz[Ô]
Height = 495
Index = 7
Left = 1440
Style = 1 [ô]Graphical
TabIndex = 9
Top = 1560
Width = 1215
End
Begin VB.OptionButton optJogo
Caption = [Ô]MMCC[Ô]
Height = 495
Index = 6
Left = 120
Style = 1 [ô]Graphical
TabIndex = 8
Top = 1560
Width = 1215
End
Begin VB.OptionButton optJogo
Caption = [Ô]MM[Ô]
Height = 495
Index = 5
Left = 2760
Style = 1 [ô]Graphical
TabIndex = 7
Top = 960
Width = 1215
End
Begin VB.OptionButton optJogo
Caption = [Ô]CC[Ô]
Height = 495
Index = 4
Left = 1440
Style = 1 [ô]Graphical
TabIndex = 6
Top = 960
Width = 1215
End
Begin VB.OptionButton optJogo
Caption = [Ô]MC[Ô]
Height = 495
Index = 3
Left = 120
Style = 1 [ô]Graphical
TabIndex = 5
Top = 960
Width = 1215
End
Begin VB.OptionButton optJogo
Caption = [Ô]M[Ô]
Height = 495
Index = 2
Left = 2760
Style = 1 [ô]Graphical
TabIndex = 4
Top = 360
Width = 1215
End
Begin VB.OptionButton optJogo
Caption = [Ô]C[Ô]
Height = 495
Index = 1
Left = 1440
Style = 1 [ô]Graphical
TabIndex = 3
Top = 360
Width = 1215
End
Begin VB.OptionButton optJogo
Caption = [Ô]Dz[Ô]
Height = 495
Index = 0
Left = 120
Style = 1 [ô]Graphical
TabIndex = 2
Top = 360
Width = 1215
End
End
Begin VB.ListBox List1
Height = 4545
Left = 240
TabIndex = 0
Top = 120
Width = 4335
End
End
Attribute VB_Name = [Ô]frmJogo[Ô]
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False



ai vc salva como frm
DANLEONHART 18/09/2011 01:06:15
#384573
Valeu pela dica Marcelo , mas quero fazer utilizando o Script Host...continuo procurando...
Tópico encerrado , respostas não são mais permitidas
Voltar