hayesha-CSDN博客

原创 mshflexgrid的一些用法

1.隔行显示不同颜色with msfor m=1 to rows-1 step 2 跳行　　for n=1 to.cols-1　　　.Row=m 确定行　　　.Col=n 确定列　　　.Cellbackcolor=vbBlueNext nNext mEnd With2.将内容导入到excel表引用excel对象定义对象Dim xapp As New Excel.Applicatio

2009-08-17 18:43:00 558

原创关于mshflexgvid的几个应用

一、先介绍一下属性、方法、事件属性：1.backcolor:返回或设置控件中未确定单元的背景色。2.backcolorbkg:返回或设置控件的背景颜色。语法obj.backcolor[=color]3.banddisplay:指定各个带区如何在控件中显示值:0:flexbanddisplayhorizontal 默认。控件内带区按水平方式显示 1：flexbanddisplayvert

2009-08-17 18:41:00 685

原创看完变形金刚后的几个想法

1;活到今天，似乎几乎没看过中国的科幻电影2;当把人类打急了，不知道会不会往大城市扔原子弹3；那些武器，能否代表世界的高科技结晶4；让计算机芯片瞬间断电或者破坏，还能不能读取数据5；电磁轨道炮是否会发出电影里那样的蓝光（那看起来更像是激光）

2009-08-15 16:11:00 381

原创编写网站的N个错误(vbscript脚本)

1；误：rs.open(sql,conn,1,3) JS形式正：rs.open sql,conn,1,32；误：sql="select * from [user] where id=" & id 正：sql="select * from [user] where id=" & id & ""3；误：sql="select * from user wh

2009-08-11 17:04:00 245

关于窗体的APIGetMenu获得窗体中一个菜单的句柄声明：Public Declare Function GetMenu Lib "user32" Alias "GetMenu" (ByVal hwnd As Long) As Longhwnd:包含菜单的窗口的句柄GetSubMenu获得一个弹出式菜单的句柄和它位于菜单中指定位置声明：Public Declare Function GetSub

2009-08-10 18:39:00 346

原创 VB转二进制

可以将十进制转换成二进制Public Function Bin(num) As StringDim H As StringDim s As Integer H = Hex(num) 转成十六进制Dim str, binstr As String For i = 1 To Len(H) str = Mid(H, i, 1) Select Case str

2009-08-10 18:23:00 1076

原创 VB的App对象

App对象属性ExeName:程序名。Path:开发阶段:vbp工程路径　:运行阶段:exe文件路径Title:返回或设置应用程序的标题。FileDescription:运行中的应用程序文件说明。Major:返回工程主版本号。Minor:返回工程的次版本号。PreInstance:检查系统是否已有一个实例。TaskVisible:程序是否在任务栏中。ThreadID:返回工程线程ID。

2009-08-10 17:52:00 495

hayesha的专栏