26. juni 2003 - 01:03Der er
8 kommentarer og 1 løsning
Opret af objekter på formen
Hvordan opretter jeg x antal objekter på formen, kun ved hjælp af kode, f.eks pictureboxes, og hvordan koder jeg, så der kommer en msgbox frem når man klikker på en bestemt en af dem. jeg har brugt følgende kode til at oprette 16 objekter med, men jeg kan ikke finde ud af, hvordan jeg bestemmer hvad der sker, når man klikker på en en af pictureboxene.
------------ Dim Lodret, Vandret, FeltID As Integer Const Bredde = 4 '<--- 5x5 Picture1(0).Visible = False
For Lodret = 1 To Bredde For Vandret = 1 To Bredde FeltID = (Lodret * Bredde) + Vandret Load Picture1(FeltID) Picture1(FeltID).Move (Lodret * Picture1(FeltID).Width), _ (Vandret * Picture1(FeltID).Height) Picture1(FeltID).Visible = True Next Next End Sub
Private Sub Form_Load() Dim Lodret, Vandret, FeltID As Integer Const Bredde = 4 '<--- 5x5 Picture1(0).Visible = False
For Lodret = 1 To Bredde For Vandret = 1 To Bredde FeltID = (Lodret * Bredde) + Vandret Load Picture1(FeltID) Picture1(FeltID).Move (Lodret * Picture1(FeltID).Width), _ (Vandret * Picture1(FeltID).Height) Picture1(FeltID).Visible = True Next Next End Sub
Private Sub Picture1_Click(Index As Integer) MsgBox Index End Sub
Private Sub Picture1_Click(Index As Integer) Select Case Index Case "1" Case "2" Case "8" MsgBox "her sker noget..." Case "9" Case "10" Case Else MsgBox "her sker noget hvis der ikke er noget tal i case" End Select End Sub
Så nu virker det også, som det skal, men nu har jeg prøvet at dele et billede op, og sætte de enkelte clips ind i de 16 bokse, men kan ikke så det til at virke. Har prøvet både med imageboxes og pictureboxes uden resultat.
Det er jeg mener er, hvis jeg nu har 2*2 pictureboxes, og vil have 1/4 af et billede i hver, hvordan gør jeg så det?
Synes godt om
Ny brugerNybegynder
Din løsning...
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.
