.................................

[GenericName]

...

Endret 11. januar 2011 av Token

[aadnk]

Hvis du vil gjenskape en form utifra et primitivt programmeringsspråk, kan det kanskje være nyttig å bruke Form.Controls.Add for å dynamisk skape nye objekter til formen. Du kan f.eks lage en Command Button på denne måten:

 

Dim WithEvents cmdTest As CommandButton

Private Sub cmdTest_Click()

   MsgBox "Dette er en test"

End Sub

Private Sub Form_Load()

   ' Bruk pixels
   Me.ScaleMode = vbPixels
   
   Set cmdTest = Me.Controls.Add("VB.CommandButton", "cmdTest")

   ' Sett egenskapene
   cmdTest.Visible = True
   cmdTest.Left = 10
   cmdTest.Top = 10
   cmdTest.Width = 50
   cmdTest.Height = 25
   cmdTest.Caption = "Test"

End Sub

 

På samme måte kan du enkelt skape andre typer kontroller:

 

   Dim txtTest As TextBox
   Dim lblTest As Label
   Dim lstTest As ListBox
   Dim picTest As PictureBox
   Dim shpTest As Shape
   Dim vscTest As VScrollBar
   Dim hscTest As HScrollBar
   
   ' Bruk pixels
   Me.ScaleMode = vbPixels

   Set txtTest = Me.Controls.Add("VB.Textbox", "txtTest")
   Set lblTest = Me.Controls.Add("VB.Label", "lblTest")
   Set lstTest = Me.Controls.Add("VB.ListBox", "lstTest")
   Set picTest = Me.Controls.Add("VB.PictureBox", "picTest")
   Set shpTest = Me.Controls.Add("VB.Shape", "shpTest")
   Set vscTest = Me.Controls.Add("VB.VScrollBar", "vscTest")
   Set hscTest = Me.Controls.Add("VB.HScrollBar", "hscTest")
   
   With txtTest
       .Visible = True
       .Left = 8
       .Top = 32
       .Height = 19
       .Width = 297
   End With
   
   With lblTest
       .Visible = True
       .Left = 8
       .Top = 8
       .Height = 16
       .Width = 297
       .Caption = "Dette er en test:"
   End With
   
   With lstTest
       .Visible = True
       .Left = 144
       .Top = 64
       .Height = 82
       .Width = 161
   End With
       
   With picTest
       .Visible = True
       .Left = 32
       .Top = 120
       .Height = 105
       .Width = 89
   End With
   
   With shpTest
       .Visible = True
       .Left = 8
       .Top = 216
       .Height = 57
       .Width = 129
       .Shape = 2
   End With
   
   With vscTest
       .Visible = True
       .Left = 144
       .Top = 64
       .Height = 82
       .Width = 161
   End With
   
   With hscTest
       .Visible = True
       .Left = 8
       .Top = 96
       .Height = 17
       .Width = 129
   End With

 

Sammen med dette, tror jeg du ville greie å "lagre" en form og deretter åpne den igjen.

Endret 22. desember 2004 av aadnk

[GenericName]

...

Endret 11. januar 2011 av Token

[Jonas]

Koden til aadnk, viser deg hvordan du kan legge til kontroller i run time. Poenget er vel at du vil lage et programmeringsspråk, er det ikke?

[GenericName]

...

Endret 11. januar 2011 av Token