For i = 1 To 4
Load Command1(i)
Command1(i).Top = Command1(i - 1).Top + Command1(i).Height + 15
Command1(i).Visible = True
Next
Tuo yläpuolella oleva koodi on Antin kirjoittama ja se luo 4 command buttonia formiin. Nyt minulla olisi kysymys miten nuo äsken luodut objectit voidaan poistaa että jäljelle jäisi vain 1?
Itse en ainakaan tiedä parempaa tapaa poistoon kuin:
objekti.Visible=False
Tuossa objekti vain piilotetaan näytöltä, mutta useissa tapauksissa se kuitenkin varmaan riittää.
Olisikohan olemassa joku Unload tai Delete?
Seuraava koodi toimii:
Private Sub Command1_Click(Index As Integer) Dim i As Integer Select Case Index Case 0 For i = 1 To 4 Load Command1(i) Command1(i).Top = Command1(i - 1).Top + Command1(i).Height + 15 Command1(i).Visible = True Next Case Else Unload Command1(Index) End Select End Sub
Aihe on jo aika vanha, joten et voi enää vastata siihen.