序号,mshflexgrid标题居中行高等

knife800的ChinaUnix博客

首页　| 　博文目录　| 　关于我

knife800

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

文章分类

全部博文（61）

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

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

文章存档

2025年（3）

2024年（14）

2023年（22）

2022年（22）

我的朋友

最近访客

推荐博文

序号,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 =.........【阅读全文】

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

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

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

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

vb中要判断在文本框内是否按下了回车键

发布时间：2024-04-08 12:41:19

事实上 KeyPress、KeyDown、KeyUp、Change这四种事件过程都可以判断是否按了回车键：123Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer).........【阅读全文】

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

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

留言热议

请登录后留言。

登录注册

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

16024965号-6