发表于 2009-1-5 19:48
| 
浣犳兂浣縈SFLEXGRID鎺т欢鍙紪杈戝悧 MSFLEXGRID
鍙戝竷: 2008-7-21 08:55 | 浣滆: admin | 鏌ョ湅: 118娆
銆銆鍦∕SFLEXGRID鎺т欢涓瘡涓涓狢ELL鏍肩殑鍐呭鏄笉鍙互鐢辩敤鎴风洿鎺ョ紪杈戠殑浣嗘槸鎴戜滑鍙互閫氳繃涓浜涘皬鎶宸ф潵鏂逛究鐨勫疄鐜拌繖缂栬緫鍔熻兘鏉ユ墿灞昅SFLEXGRID鐨勫簲鐢紙鍦ㄥ疄闄呭簲鐢ㄤ腑杩欐槸寰堝父鐢ㄧ殑鍔熻兘锛夈
銆銆浣犲彧闇鎸変笅闈㈢殑鍋氬嵆鍙交鏉惧疄鐜扮紪杈慚SFLEXGRID鎺т欢鏁版嵁鐨勫姛鑳
銆銆渚嬪湪绐椾綋涓婃斁涓鏂囨湰妗唗ext1锛屽拰涓MSFLEXGRID鎺т欢flexgrid1
銆銆鍔犲叆涓嬩緥浠ｇ爜
銆銆Private Sub Form_Load()
銆銆
Text1.Move -10000, -10000, 1, 1
End Sub
Private Sub MSFlexGrid1_EnterCell()
銆銆
MSFlexGrid1.CellBackColor = vbBlue
銆銆
MSFlexGrid1.CellForeColor = vbWhite
銆銆
Text1.Text = MSFlexGrid1.Text
銆銆
Text1.SelStart = 0
銆銆
Text1.SelLength = Len(Text1.Text)
End Sub
Private Sub MSFlexGrid1_LeaveCell()
銆銆
MSFlexGrid1.CellBackColor = vbWhite
銆銆
MSFlexGrid1.CellForeColor = vbBlue
End Sub
Private Sub MSFlexGrid1_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
銆銆
Text1.SetFocus
End Sub
Private Sub Text1_Change()
銆銆
MSFlexGrid1.Text = Text1.Text
End Sub
Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
銆銆
Select Case KeyCode
銆銆銆銆
Case vbKeyLeft, vbKeyRight, vbKeyUp, vbKeyDown
銆銆銆銆銆銆
KeyCode = 0
銆銆
End Select
End Sub
銆銆ok,杩欐牱涓涓彲缂栬緫鐨凪SFLEXGRID鎺т欢灏卞畬鎴愪簡锛岀畝鍗曞惂!!
