" id="b1img" alt="米课”N+1“思维建站-非官方免费技术支持,Wordpress/Zencart/Opencart建站、SEO" title="米课”N+1“思维建站-非官方免费技术支持,Wordpress/Zencart/Opencart建站、SEO">
  • " alt="米课”N+1“思维建站-非官方免费技术支持,Wordpress/Zencart/Opencart建站、SEO" title="米课”N+1“思维建站-非官方免费技术支持,Wordpress/Zencart/Opencart建站、SEO" />
  • " alt="Windows/Linux服务器运维技术支持 环境搭建、应用发布、服务器管理、虚拟化、云计算" title="Windows/Linux服务器运维技术支持 环境搭建、应用发布、服务器管理、虚拟化、云计算" />
  • " alt="高校/小型企业网络运维与建设免费技术支持,网络规划、网络优化、故障排除、网络管理" title="高校/小型企业网络运维与建设免费技术支持,网络规划、网络优化、故障排除、网络管理" />
<a href="http://www.itlogger.com/category/program" rel="category tag">程序设计</a>
程序设计

VB-用mousedown代替onclick事件来判断鼠标按键

2005-05-19 itlogger阅读(733) 评论(1)
. VB中的onclick事件,没有button参数,无法判断鼠标按左键/右键 而mousedown时间则有button参数 button=1 ‘左键 button=2 ‘右键 Private Sub mnuSave_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) …
<a href="http://www.itlogger.com/category/program" rel="category tag">程序设计</a>
程序设计

VB窗体QueryUnload事件实例代码

2005-05-09 itlogger阅读(534) 评论(0)
private sub Form_QueryUnload(Cancel as integer,UnloadMode as integer) ‘参数 Cancel(设置为True可拒绝卸载窗体) UnloadMode为触发事件的模式. select case UnloadMode case vbFormControlMenu ‘=0 case vbFormCode ‘=1 case vbAppWindows ‘=2 case vbAppTaskManager ‘=3 case v...
<a href="http://www.itlogger.com/category/program" rel="category tag">程序设计</a>
程序设计

VB窗口事件的发生顺序

itlogger阅读(596) 评论(0)
窗口事件的发生顺序 1 Form_Initialize 2 Form_Load 3 Form_Resize 4 Form_Activate 5 Form_GotFocus 6 Form_Paint 7 Form_QueryUnload 8 Form_Unload 8 Form_Terminate …
<a href="http://www.itlogger.com/category/program" rel="category tag">程序设计</a>
程序设计

VB Recordset的GetRows属性用法详解

2005-05-05 itlogger阅读(1,980) 评论(0)
Recordset 有个 GetRows 属性,就是把数据集输出到一个数组中。但是实用性可不小,在这里举一个例子说明一下GetRows的使用方法。 比如一个分类的表 T_Cate,结构和数据如下: ID | Title | Intro —————————————– 1 | 新闻 | 这里是新闻...
<a href="http://www.itlogger.com/category/program" rel="category tag">程序设计</a>
程序设计

VB的模块和类模块

2005-05-02 itlogger阅读(514) 评论(0)
模块是.bas文件,主要用于将代码分别存放,便于管理。 类模块是.cls文件,主要用于定义类和设计ActiveX EXE、ActiveX DLL。在VB中选择“工程|添加类模块”就可以在工程中加入一个类模块。然后,可以使用菜单中的“添加过程”命令添加属性、方法和事件。
<a href="http://www.itlogger.com/category/program" rel="category tag">程序设计</a>
程序设计

VB – 动态循环加载控件数组失效的解决方法

2005-04-26 itlogger阅读(596) 评论(0)
sql=”select * from table1″ rs.open sql,cnn,1,3 ‘—————————————————————————- do while not rs.eof i=cint(rs(“sid”)) load frmmain.imgswitch(i...
<a href="http://www.itlogger.com/category/program" rel="category tag">程序设计</a>
程序设计

VB – ini文件读写操作实例代码

itlogger阅读(639) 评论(0)
ini文件读写操作实例代码 Private Declare Function GetPrivateProfileString Lib “kernel32” Alias “GetPrivateProfileStringA” (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Long, ByVal lpFileName As String) As...
<a href="http://www.itlogger.com/category/program" rel="category tag">程序设计</a>
程序设计

VB编程的几大优良习惯

2005-04-12 itlogger阅读(931) 评论(2)
1、”&”替换”+” 2、变量命名大小写,语句错落有秩,源代码维护方面 3、请养成以下的“对象命名约定”良好习惯 4、在简单的选择条件情况下,使用IIf()函数 5、尽量使用Debug.Print进行调试 6、在重复对某一对象的属性进行修改时,尽量使用With….End With 7、MsgBox中尽量使用消息图标,这样程序比较有规范 8、...
<a href="http://www.itlogger.com/category/program" rel="category tag">程序设计</a>
程序设计

VB – Listbox按数字排序的函数代码

2005-04-07 itlogger阅读(897) 评论(1)
VB中实现listbox控件按数字进行排序的函数代码如下: Public Sub ReSort(L As Control) Dim P%, PP%, C%, Pre$, S$, V&, NewPos%, CheckIt% Dim TempL$, TempItemData&, S1$ For P = 0 To L.ListCount – 1 S = L.List(P) For C = 1 To Len(S) V = Val(Mid$(S, C)) If V > 0 Then Exit For Next If V > 0 Then If C > ...
<a href="http://www.itlogger.com/category/program" rel="category tag">程序设计</a>
程序设计

VB – Combox两点小知识

2005-04-05 itlogger阅读(619) 评论(0)
1、设置默认值: — Combox1.ListIndex = Sindex ‘Sindex_要设置为默认值的项 2、限制只能选择,不能输入 –将dropDownStyle属性改称dropdownList …