动态创建控件至于顶层
ctseu 2006-09-15 10:11:14 我动态创建了一个listbox控件,但是当前窗体上还有其他的控件,会挡住listbox,以至于listbox的一部分内容被挡住了,怎样将在动态创建控件时使其至于顶层,求助语句?
Private Sub selplateid()
Dim i As Integer
'定义连接数据库的语句
Dim strConnect As String = "Data Source=" + SERVICE_NAME + ";User ID=" + DB_USER_NAME + ";Password=" + DB_PASSWORD + ";"
Dim oracleconn As OracleClient.OracleConnection = New OracleClient.OracleConnection(strConnect)
'将sqltext内容传递给command对象
Dim selinfo As String
selinfo = "select actual_plate_id from pdi_actual_plate where rownum<=20 order by pdi_actual_plate.PRODUCT_ID asc"
Dim cmdselect As OracleClient.OracleCommand = New OracleClient.OracleCommand(selinfo, oracleconn)
'指定command的类型
cmdselect.CommandType = CommandType.Text
Dim da As OracleClient.OracleDataAdapter = Nothing
'创建一个OracleDataAdapter的对象,负责从数据库中提取数据
If da Is Nothing Then
da = New OracleClient.OracleDataAdapter
End If
da.SelectCommand = cmdselect
Dim dt As DataTable = Nothing
'创建一个DataTable的对象,存放从数据库中取出来的数据
If dt Is Nothing Then
dt = New DataTable
End If
'Dim listplateid As ListBox = New ListBox
Try
oracleconn.Open()
dt.Rows.Clear()
dt.Columns.Clear()
da.Fill(dt)
Dim listplateid As ListBox = New ListBox
listplateid.Width = 100
listplateid.Height = 52
listplateid.Location = New System.Drawing.Point(260, 2)
Me.Panel1.Controls.Add(listplateid)
i = 0
While i <= (dt.Rows.Count - 1)
listplateid.Items.Add(dt.Rows(i).Item(0).ToString)
i = i + 1
End While
oracleconn.Close()
listplateid.Focus()
listplateid.Visible = True
listplateid.Show()
'MessageBox.Show("okk")
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
End Sub