MSFlexGrid使用技巧
来源:互联网 发布:linux reboot失效 编辑:程序博客网 时间:2024/05/02 02:13
本来通过ERP中基础分类档案的每级编码规则控制来展现MSFlexGrid控件的使用技巧,大家只要向控件添加一个MSFlexGrid及Combo控件就好了,源码如下: Option Explicit Private Sub Combo1_Click() MSFlexGrid1.text = Combo1.textEnd Sub Private Sub Combo1_KeyPress(KeyAscii As Integer)If KeyAscii = vbKeyEscape Then Combo1.Visible = False MSFlexGrid1.SetFocus Exit SubEnd If If KeyAscii = vbKeyReturn Then MSFlexGrid1.text = Combo1.text Combo1.Visible = False MSFlexGrid1.SetFocusEnd IfEnd Sub Private Sub Combo1_LostFocus() Combo1.Visible = False MSFlexGrid1.SetFocus Exit SubEnd Sub Private Sub Form_Load()Dim i As IntegerDim width, text, Archiveswidth = 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 = 1End With For i = 1 To 9 Combo1.AddItem iNext 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 WithNext iEnd Sub Private Sub MSFlexGrid1_Click()Dim c As Integer, r As IntegerWith 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 IfEnd WithEnd Sub Private Sub MSFlexGrid1_KeyPress(KeyAscii As Integer)If KeyAscii = vbKeyReturn Then Call MSFlexGrid1_ClickEnd IfEnd Sub
- MSFlexGrid使用技巧
- MSFlexGrid 使用技巧
- MSFlexGrid使用技巧一例
- VSFlexgrid、MSFlexgrid控件使用技巧(转)
- MsFlexGrid使用总结
- MsFlexGrid如何使用
- VC MSFlexGrid基本使用
- VC MSFlexGrid基本使用
- MSFlexgrid
- MSFlexGrid
- MSFlexGrid控件使用点滴记录
- msflexgrid控件的使用细则
- msflexgrid在vs2010中的使用
- 使用MsFlexGrid控件的几个函数
- 使用MsFlexGrid控件的几个函数
- VB中MsFlexGrid控件的使用细则
- 使用MsFlexGrid控件的几个函数
- VB中MsFlexGrid控件的使用细则
- 实现IE与Firefox的DHTML
- [B原创] Arm/x86结构体gcc内存边界对齐问题
- C递归实现单向链表的反转
- 1000Linux/Unix系统、网络、编程电子书专题下载
- 单选按钮检测
- MSFlexGrid使用技巧
- 如何用ASP/JSP实现摄像头的网络直播
- 协议大全
- Javascript语言进行文件操作
- Hibernate3中的hbm2java和hbm2ddl的ant脚本实现
- 进化中Hibernate3脚本
- 2.21
- Windows环境下32位汇编语言程序设计
- 跨组织流程管理的现状