Δημιουργία control σε vb

[sotospez]

Καλημέρα σε όλους

 

Θέλω να δημιουργό με κώδικα κάποια control textbox , checkbox command, κ.τ.λ.

Σε μια φόρμα πανό ξέρεις κανείς το τρόπο

[Xdanger]

exo apegatastisi tin vb edo ke kero apo to pc alla apo oti 8imame prepi na iparxi mia epilogi pu lei user control control library i kati allo eki pu dialegis ton tipo tu programatos (eki exi ke alles epiloges opos exe,dll ktl)

[firewalker]

Ποια έκδοση έχεις? Αν αναφέρεσαι σε αρχεία .ocx στην πρώτη οθόνη διαλέγεις ActiveX Control. Στην συνέχεια με την χρήση του λατάλληλου wizard "κτίζεις" σιγά σιγά το Control σου.

[sotospez]

malon den sas edosa na katalabete kala

thelo na exo mia forma keni kai analoga me tis anagges toy xiristi

na toy bazo pano controls px textbox alla den ksero pos mporo na kano eno to programa trexei na dimioyrgi to textbox pano stin forma me kapoio name A ginete to exo di alla den mporo na katalabo ton tropo

[firewalker]

Υπάρχουν δύο τρόποι.

 

1ος τρόπος με την χρήση Control Array:

 

Τοποθέτησε στην φόρμα σου ένα textbox με όνομα txtbox π.χ. και ένα command Button.

 

Τώρα πρέπει να πούμε στην vb ότι το txtbox είναι μέρος από ένα Control Array. Αυτό γίνεται ως εξής. Στην πινακίδα με τις ιδιότητες του textbox στην ιδιότητα Index από κενό δίνω την τιμή 0.

 

Στην συνέχεια στο command Button τρέχουμε τον εξής κώδικα:

 

Private Sub Command1_Click()

Load Check1(1)

Check1(1).Caption = "New Checkbox"

Check1(1).Visible = True

Check1(1).Top = Check1(0).Top + Check1(0).Height

End Sub

 

Check1(1).Top = Check1(0).Top + Check1(0).Height

 

Ή μπορείς να χρησιμοποιήσεις έναν βρόχο.

 

for i=1 to κάτι

Load Check1(i)

Check1(i).Caption = "New Checkbox"

Check1(i).Visible = True

Check1(i).Top = Check1(i-1).Top + Check1(i-1).Height

Next i

 

 

O δεύτερος τρόπος είναι να δημιουργήσεις το control από την αρχή με την χρήση του Controls Collection. Είναι λίγο μεγάλος και δεν θα τον αναφέρω προς το παρόν. Αν έχεις πρόβλημα με τα παραπάνω πόσταρε ξανά.

[sotospez]

Nai Moy Kanei

Thanks