combo style为 dropdown list时默认值设置

knife800的ChinaUnix博客

首页　| 　博文目录　| 　关于我

knife800

博客访问： 41710
博文数量： 58
博客积分： 10
博客等级：民兵
技术积分： 520
用户组：普通用户
注册时间： 2011-01-23 14:08

文章分类

全部博文（58）

OFFICE（0）
VB（27）
打印机（2）
网络（5）
数据库（8）

SYBASE数据库（5）
Windows（16）
未分配的博文（0）

文章存档

2024年（14）

2023年（22）

2022年（22）

我的朋友

最近访客

推荐博文

combo style为 dropdown list时默认值设置

发布时间：2024-12-01 16:52:34

Combo2.ListIndex = 1 ''''combo的style为dropdown list时 =0显示第1，=1显示第2......【阅读全文】

阅读(25) | 评论(0) | 转发(0)

combo随窗体大小自动改变

发布时间：2024-11-04 11:10:31

w = Me.Width / Combo1.WidthEnd SubPrivate Sub Form_Resize() Combo1.Left = Me.Width / l......【阅读全文】

阅读(56) | 评论(0) | 转发(0)

序号,mshflexgrid标题居中行高等

发布时间：2024-10-16 15:44:09

'''1、序号：公用模块Public Sub Autoxh(Form As Form, Grid As MSHFlexGrid) Grid.TextMatrix(0, 0) = "xh" '''加序号 Dim a As Long 'For a = 1 To rs.RecordCount '　直接写语句时，用此得序号 For a =.........【阅读全文】

阅读(75) | 评论(0) | 转发(0)

判断文件是否存在

发布时间：2024-08-20 10:54:08

If Dir(App.Path & "\zkpara.txt", vbHidden Or vbReadOnly Or vbNormal Or vbSystem) <> "" Then '''判断zkpara文件是否存在,属性为隐藏只读正常系统 ''''读取zk文件 Dim fso As Object, ts As Object txt_lowzk = "" Set fso = CreateObject("scriptin.........【阅读全文】

阅读(745) | 评论(0) | 转发(0)

mshflexgrid导出TXT

发布时间：2024-06-21 14:36:05

On Error Resume NextIf MSHFlexGrid1.TextMatrix(1, 1) = "" Then MsgBox "无记录可导出", 0 + vbExclamation, "提示" Exit SubElse Dim strTemp As String Dim i As Integer, j As Integer strTemp = "" For i = 1 To MSHFlex.........【阅读全文】

阅读(181) | 评论(0) | 转发(0)

给主人留下些什么吧！~~

留言热议

请登录后留言。

登录注册

感谢所有关心和支持过ChinaUnix的朋友们

16024965号-6