用戶名:  密碼:  驗證碼: 驗證碼  注冊  找回
RSS
無雙網
 2019年10月20日 星期日  您現在位于: 首頁 → 技術文欄 → MSFlexGrid使用技巧一例-網站開發(其它相關:MSFl...

MSFlexGrid使用技巧一例

2008年04月18日  無雙網  出處:CSDN

本來通過ERP中基礎分類檔案的每級編碼規則控制來展現MSFlexGrid控件的使用技巧,大家只要向控件添加一個MSFlexGridCombo控件就好了,源碼如下:

 

Option Explicit

 

Private Sub Combo1_Click()

    MSFlexGrid1.text = Combo1.text

End Sub

 

Private Sub Combo1_KeyPress(KeyAscii As Integer)

If KeyAscii = vbKeyEscape Then

    Combo1.Visible = False

    MSFlexGrid1.SetFocus

    Exit Sub

End If

 

If KeyAscii = vbKeyReturn Then

    MSFlexGrid1.text = Combo1.text

    Combo1.Visible = False

    MSFlexGrid1.SetFocus

End If

End Sub

 

Private Sub Combo1_LostFocus()

    Combo1.Visible = False

    MSFlexGrid1.SetFocus

    Exit Sub

End Sub

 

Private Sub Form_Load()

Dim i As Integer

Dim width, text, Archives

width = Array("400", "2100", "800", "800", "800", "800", "800", "800", "800", "800", "800")

text = Array("序號", "檔案名稱", "1", "2", "3", "4", "5", "6", "7", "8", "9")

Archives = Array("null", "科目", "項目分類", "固定資產分類", "部門分類", "員工分類", "供應商分類", "客戶分類", "銷售商分類", "地區分類", "出入庫類別", "存貨分類", "預留12", "預留13", "預留14", "預留15", "預留16", "預留17", "預留18", "預留19", "預留20")

With MSFlexGrid1

    .Rows = 21

    .Cols = 11

    .FixedCols = 2

    .FixedRows = 1

End With

 

For i = 1 To 9

    Combo1.AddItem i

Next i

 

For i = 0 To 10

    MSFlexGrid1.ColWidth(i) = width(i)

    MSFlexGrid1.TextMatrix(0, i) = text(i)

Next i

 

For i = 1 To 20

    With MSFlexGrid1

    .TextMatrix(i, 0) = i

    .TextMatrix(i, 1) = Archives(i)

    .RowHeight(i) = 300

    End With

Next i

End Sub

 

Private Sub MSFlexGrid1_Click()

Dim c As Integer, r As Integer

With MSFlexGrid1

    c = .col

    r = .row

    If c > 1 And r > 0 Then

        Combo1.Left = .Left + .ColPos(c) + 50

        Combo1.Top = .Top + .RowPos(r) + 50

        Combo1.width = .ColWidth(c)

        Combo1.text = .text

        Combo1.Visible = True

        Combo1.SetFocus

    End If

End With

End Sub

 

Private Sub MSFlexGrid1_KeyPress(KeyAscii As Integer)

If KeyAscii = vbKeyReturn Then

    Call MSFlexGrid1_Click

End If

End Sub


 (本文已被瀏覽 19063 次)
 發布人:asp126
 → 推薦給我的好友
上篇文章:保存webbrowser中的HTML內容
下篇文章:用WebEasyMail架構Web郵件服務器(5)
發表評論
  → 評論內容 (點擊查看)   共0條評論,每頁顯示5條評論   瀏覽所有評論
(沒有相關評論)
  → 發表我的評論 (點擊發表)
熱門文章
 保存webbrowser中的HTML內...
 用VB6.0設計簡易賽車游戲
 MSFlexGrid使用技巧一例
 游戲對照表
 Win2003+Discuz!5.5+II...
 添加紅月裝備的詳細教程 (包括裝備 武...
 全部DLL下載
 在Delphi里播放Flash
 用vb6的ActiveX控件實現異步下...
 能否判斷動態數組有沒有被分配過
最新文章
 [ODBC SQL Server Driv...
 評論:115網盤的何去何從
 我科學家實現百公里量級自由空間量子隱形...
 中國智能手機出貨量占全球27%居世界之...
 Gartner:2012 第二季度西歐 P...
 [多圖]華山論劍:當今在世的智商最高的...
 三星獲出租車服務系統專利 可快速查看駕...
 [多圖]15項可能延續到2030年的科...
 分析稱蘋果三星專利大戰輸贏已成定論
 Google終獲云操作系統專利
 網站留言· 友情鏈接·與我在線·網站地圖聯系我們·管理·TOP 
 陜ICP備14011112號  
 Copyright © 2012 Asp126.com Inc. All Rights Reserved.Processed in 0.000s, 8 queries, 41 Cache,0 Online  
福建11选5遗漏