程序師世界是廣大編程愛好者互助、分享、學習的平台,程序師世界有你更精彩!
首頁
編程語言
C語言|JAVA編程
Python編程
網頁編程
ASP編程|PHP編程
JSP編程
數據庫知識
MYSQL數據庫|SqlServer數據庫
Oracle數據庫|DB2數據庫
 程式師世界 >> 編程語言 >> Visual Basic語言 >> VB6 >> 怎樣添加一個下拉框到msflexgrid

怎樣添加一個下拉框到msflexgrid

編輯:VB6

首先應該建立一個combo1的comboBox控件,作為下拉框的最終實現工具。

Private Sub Combo1_Click()
MSFlexGrid1.Row = MSFlexGrid1.RowSel
MSFlexGrid1.Col = 2
MSFlexGrid1.Text = Combo1.Text
End Sub

'Private Sub Combo1_LostFocus()
'Combo1.Text = MSFlexGrid1.Text

'End Sub
Private Sub Form_Load()
Combo1.Visible = False
Combo1.AddItem "aaa"
Combo1.AddItem "bbb"
Combo1.AddItem "ccc"
MSFlexGrid1.Cols = 10
MSFlexGrid1.Rows = 10
End Sub
Private Sub MSFlexGrid1_EnterCell()
If MSFlexGrid1.Col = 2 Then
MSFlexGrid1.CellBackColor = vbWhite
MSFlexGrid1.CellForeColor = vbBlue
Combo1.Move MSFlexGrid1.Left + MSFlexGrid1.CellLeft, MSFlexGrid1.Top + MSFlexGrid1.CellTop, MSFlexGrid1.CellWidth
Combo1.Visible = True
'Combo1.Text = MSFlexGrid1.Text
Else
Exit Sub
End If

' Combo1.SelStart = 0
' Combo1.SelLength = Len(Combo1.Text)
End Sub
Private Sub MSFlexGrid1_LeaveCell()
'If MSFlexGrid1.Col = 2 Then
MSFlexGrid1.CellBackColor = vbWhite
MSFlexGrid1.CellForeColor = vbBlue
'Combo1.Move MSFlexGrid1.Left + MSFlexGrid1.CellLeft, MSFlexGrid1.Top + MSFlexGrid1.CellTop, MSFlexGrid1.CellWidth
'MSFlexGrid1.Text = Combo1.Text
' Else
'Exit Sub
'End If
End Sub
'Private Sub Combo1_Change()
'MSFlexGrid1.Row = MSFlexGrid1.RowSel
'MSFlexGrid1.Col = 2
'MSFlexGrid1.Text = Combo1.Text
'End Sub
Private Sub Timer1_Timer()
Timer1.Enabled = True
Combo1.Visible = False
End Sub

  1. 上一頁:
  2. 下一頁:
Copyright © 程式師世界 All Rights Reserved