用户名:  密码:  验证码: 验证码  注册  找回
RSS
无双网
 2018年08月19日 星期日  您现在位于: 首页 → 技术文栏 → 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


 (本文已被浏览 14759 次)
 发布人:asp126
 → 推荐给我的好友
上篇文章:保存webbrowser中的HTML内容
下篇文章:用WebEasyMail架构Web邮件服务器(5)
发表评论
  → 评论内容 (点击查看)   共0条评论,每页显示5条评论   浏览所有评论
(没有相关评论)
  → 发表我的评论 (点击发表)
热门文章
 全部DLL下载
 添加红月装备的详细教程 (包括装备 武...
 保存webbrowser中的HTML内...
 MSFlexGrid使用技巧一例
 用vb6的ActiveX控件实现异步下...
 PC经典RPG《仙剑奇侠传Ⅰ》for PP...
 用VB6.0设计简易赛车游戏
 能否判断动态数组有没有被分配过
 利用压缩网页来提升网站浏览速度
 删SQL数据!还原新服务器!
最新文章
 [ODBC SQL Server Driv...
 评论:115网盘的何去何从
 我科学家实现百公里量级自由空间量子隐形...
 中国智能手机出货量占全球27%居世界之...
 Gartner:2012 第二季度西欧 P...
 [多图]华山论剑:当今在世的智商最高的...
 三星获出租车服务系统专利 可快速查看驾...
 [多图]15项可能延续到2030年的科...
 分析称苹果三星专利大战输赢已成定论
 Google终获云操作系统专利
 网站留言· 友情链接·与我在线·网站地图联系我们·管理·TOP 
 陕ICP备09004157号  
 Copyright © 2012 Asp126.com Inc. All Rights Reserved.Processed in 0.016s, 8 queries, 35 Cache,0 Online