combo随窗体大小自动改变_knife800-ChinaUnix博客

knife800的ChinaUnix博客

首页　| 　博文目录　| 　关于我

knife800

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

文章分类

全部博文（55）

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

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

文章存档

2024年（11）

2023年（22）

2022年（22）

我的朋友

最近访客

推荐博文

combo随窗体大小自动改变

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

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

阅读(24) | 评论(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 =.........【阅读全文】

阅读(47) | 评论(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.........【阅读全文】

阅读(727) | 评论(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.........【阅读全文】

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

使窗体的X按键失效

发布时间：2024-04-29 10:12:48

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)'''取消关闭功能If UnloadMode = 0 Then Cancel = TrueEnd If'''取消关闭功能End Sub......【阅读全文】

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

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

留言热议

请登录后留言。

登录注册

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

16024965号-6