Καλημέρα σας και πάλι, επειδή είμαι σχετικά νεός στον προγραμματισμό όπως θα έχετε παρατηρήσει, θέλω να ρωτήσω το εξής. Μπορώ σε μια function/sub να περάσω το όνομα του control & form που θέλω ώς παραμέτρους ;
Έχω δημιουργήσει μια public sub όπως φαίνεται παρακάτω, (με όνομα παραμέτρου για τη φόρμα,
SelForm και όνομα παραμέτρου για το control,
SelControl).
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
| Public Sub DropDownParameters(PKVar As String, TableVar As String, DBCommand As String, ValMember As String, _
SelIndex As Integer, ByVal SelControl As Control, _
SelForm As Object)
Try
DBCommand = "SELECT [" & PKVar & "] " _
& "FROM [" & TableVar & "] " _
& "ORDER BY Descr"
DA = New SqlDataAdapter(DBCommand, Connection)
DS = New DataSet()
DA.Fill(DS, TableVar)
DT = DS.Tables(TableVar)
With SelForm.SelControl
.DataSource = DT
.DisplayMember = TableVar
.ValueMember = ValMember
.SelectedIndex = SelIndex
End With
Catch ex As Exception
End Try
ConnClose()
End Sub |
Η παραπάνω sub απλά γεμίζει ένα dropdownlist επειδή θελώ όμως να την ξαναχρησιμοποιήσω ξανά κάμποσες φορές θέλω να περνάω ως παραμέτρους τα ονόματα των φορμών και των dropdown controls που έχω.
Τι μπορώ να κάνω εδώ ;
ευχαριστώ εκ των προτέρων
Αντώνης Ε. Κόλλιας