-
关注A5微信公众号 及时获取站长干货
所属栏目：[百科] 日期：2021-05-13 热度：134
移动互联网时代，微信成为获取各种信息的主要移动入口。微信自媒体、微信电商的火爆，也成为站长关注的热点。 想要获取最新IT资讯、站长干货分享，可以关注A5站长网微信公众号。搜索微信号： iadmin5 ，也可以扫描下方的微信二维码进行关注! 扫描二维码，即[详细]
-
【转】VB的指针使用
所属栏目：[百科] 日期：2020-12-17 热度：97
原文地址：http://www.cnblogs.com/xw885/articles/105264.html 一、指针是什么？ 不需要去找什么标准的定义，它就是一个32位整数，在C语言和在VB里都可以用Long类型来表示。在32位Windows平台下它和普通的32位长整型数没有什么不同，只不过它的值是一个内存[详细]
-
vb.net WebBrowser页面与WinForm交互技巧
所属栏目：[百科] 日期：2020-12-17 热度：57
最近看到博客园入门教学文章比较流行，自己最近又偷懒比较多，没啥心得，不妨写一篇没啥深度的入门文章吧。 话说有了WebBrowser类，终于不用自己手动封装SHDocVw的AxWebBrowser这个ActiveX控件了。这个类如果仅仅作为一个和IE一模一样浏览器，那就太没意思了[详细]
-
WINCC6.2 VB脚本如何对变量进行位操作？
所属栏目：[百科] 日期：2020-12-17 热度：164
已解决问题：WINCC6.2 VB脚本如何对变量进行位操作？ 如题，在WINCC的VB脚本中如何对一变量的某一位进行操作？比如有一16位内部变量：Tag1BR，如何对它的第5位进行IF判断？ 最佳答案 第5位进行IF判断: IfHMIRuntime.Tags("Tag1").ReadAndH10Then ... Else ..[详细]
-
VB6 从数据库中导出数据到Excel(项目中用到的)
所属栏目：[百科] 日期：2020-12-17 热度：164
Public Enum ExportType DiffrentData = 0 FirstData = 1 SecondData = 2 End Enum Public Function BuildSheet(ByRef xlSheet As Excel.Worksheet,ByVal strSQL As String,ByVal oType As ExportType) Dim Rs_Data As ADODB.Recordset Dim xlQuery As Excel[详细]
-
分页显示补充
所属栏目：[百科] 日期：2020-12-17 热度：146
再加一个定义：Dim pageIndex As Integer (8)显示页码的相关css a.juanZeng_xianShi_yeMa1 { color :#D22E46; margin-left :5px; font-size :20px; padding-left :10px; padding-right :10px; height:15px; border:1px solid lightgrey; } a.juanZeng_xianSh[详细]
-
vb.net制作简单的下拉菜单
所属栏目：[百科] 日期：2020-12-17 热度：191
（1）首先写两个js函数，获得页面中需要获得点的x，y坐标（如果是已经确定该点的位置，则可以不写）： function pageX(elem) { return elem.offsetParent ? (elem.offsetLeft + PageX(elem.offsetParent)) : elem.offsetLeft; } function pageY(elem) { retu[详细]
-
VB.Net实现开机启动程序
所属栏目：[百科] 日期：2020-12-17 热度：191
Private Sub Button1_Click(ByVal sender As System.Object,ByVal e As System.EventArgs) Handles Button1.Click Dim Reg As Microsoft.Win32.RegistryKeyReg = Microsoft.Win32.Registry.CurrentUserReg.OpenSubKey("SoftwareMicrosoftWindowsCurrentVe[详细]
-
VB加零函数
所属栏目：[百科] 日期：2020-12-17 热度：121
Public Function AddZero(strTmp As String) As String '添加0 Dim intCD,intCDC As Integer intCD = Len(strTmp) intCDC = 10 - intCD If intCDC 0 Then Dim strZCD As String strZCD = String(intCDC,"0") ElseIf intCDC = 0 Then AddZero = strTmp Exit F[详细]
-
动态创建vb组件
所属栏目：[百科] 日期：2020-12-17 热度：168
Dim num As IntegerPrivate Sub Command1_Click() Call createListEnd SubPrivate Sub createList() For i = 0 To num - 1 Set List = Controls.Add("VB.ListBox","List" i) List.Top = 10 List.Width = 300 List.Height = 300 List.Left = i * 400 + 300 Li[详细]
-
DDE编程新篇
所属栏目：[百科] 日期：2020-12-17 热度：83
最近用Excel处理些东西，想到了用DDE，于是翻了翻资料，整理了一个例子。 1、启动MicrosoftExcel，打开一个新的名叫Sheet1的工作单，在第一列中放入一些数据 2、启动VB，可以看到表格的数据在界面呈现了。 3、修改Excel的数据，可以看到VB的数据实时更新了 O[详细]
-
VB语法简介
所属栏目：[百科] 日期：2020-12-17 热度：155
整型 Integer –2147483648～2147483647 用于表示简单整数 字节型 Byte 0～255 用于简单算术运算。由于这个类型的变量可以在一个字节中存储，所以运算速度最快 短整型 Short –32768～32767 是整型的一种形式，相对表示范围较小 长整型 Long –9223372036854[详细]
-
VB.net 中向客户端发送数据的两种方式
所属栏目：[百科] 日期：2020-12-17 热度：75
方式一： Response.write("Y") Response.end() 方式一有时候会抛出异常 我曾经遇到这样的情况 就是在try catch 里面执行到Response.end() 的时候抛出异常 所以有时候可用采用第2种方式将数据发送到客户端，一般我们采用的是ajax 在客户端在回调函数里面我们[详细]
-
vb.net操作带空格的数据库字段
所属栏目：[百科] 日期：2020-12-17 热度：86
这次任务是在一个已建成的Access数据库上进行二次开发,打开数据库表一看,发现表字段 中间有空格 ,比如"HR NUM" 如果SQL语言如下,会出现错误: INSERT INTO A (HR NUM) VALUES ('1001') 解决办法: 将中间有空格的字段命,用" [ ] "括起来 SQL语言修改如下: INSE[详细]
-
VB.NET读取EXCEL 里面的内容
所属栏目：[百科] 日期：2020-12-17 热度：105
1、定义excel操作变量 dim objexcelfile as excel.application dim objworkbook as excel.workbook dim objimportsheet as excel.worksheet 2、打开excel进程，并打开目标excel文件 set objexcelfile = new excel.application objexcelfile.displayalerts =[详细]
-
简单的VB小脚本之——文件处理脚本
所属栏目：[百科] 日期：2020-12-17 热度：158
昨晚客户发来邮件说，要求写个VB的小脚本来替换文件中指定的字符串，当时第一反应是，你直接拿个文本编辑器用查找/替换功能不就搞定了嘛，不过立刻就又反应过来，客户就是上帝。好吧，上帝要求我写个VB的脚本，我就满足上帝的需要，由于之前没有接触过VB脚本[详细]
-
vb6.0 MSDN的安装位置
所属栏目：[百科] 日期：2020-12-17 热度：62
最近下了个vb在学习,看到别人建议下载MSDN,顺便也下了.下载了个"MSDN VB6.0精简版.zip".由于刚开始看,安装后不知道在哪,如何打开. 在此把过程写下来: 解压后 点击setup.exe,再一路next. 选择安装位置时,由于存在D:Program FilesMicrosoft Visual StudioVC[详细]
-
VB启动计算机并控制
所属栏目：[百科] 日期：2020-12-17 热度：186
Private Sub Command1_Click()Dim I As IntegerDim Jh As String'===Shell "calc.exe",1For I = 1 To 9SendKeys Replace("{" Str(I) "}"," ","")SendKeys "{+}"NextEnd SubPrivate Sub Command2_Click()Dim k As Integer,sum As IntegerFor k = 1 To 9sum =[详细]
-
VB用API获取本机IP地址
所属栏目：[百科] 日期：2020-12-17 热度：142
Option ExplicitPublic Const MIN_SOCKETS_REQD As Long = 1Public Const WS_VERSION_REQD As Long = H101Public Const WS_VERSION_MAJOR As Long = WS_VERSION_REQD H100 And HFFPublic Const WS_VERSION_MINOR As Long = WS_VERSION_REQD And HFFPublic[详细]
-
VB遍历目录文件
所属栏目：[百科] 日期：2020-12-17 热度：134
Private Sub Command1_Click()sDirTraversal "c:windows",List1End SubPrivate Sub Command2_Click()Dim sE As Long,cP As Long,tP As String,tpLT As IntegertP = UCase(InputBox("Type:=")): tpLT = Len(tP)For sE = 0 To List1.ListCount - 1If UCase(Ri[详细]
-
VB遍历目录文件夹2
所属栏目：[百科] 日期：2020-12-17 热度：60
Private Sub Command1_Click()get_folders List1,"c:windows"End SubPrivate Sub get_folders(ByRef List1 As ListBox,ByVal path As String)'引用了Microsoft Scripting RuntimeDim fso As New Scripting.FileSystemObjectDim fd As Scripting.FolderDim f[详细]
-
VB屏幕截图1
所属栏目：[百科] 日期：2020-12-17 热度：58
Private Declare Function BitBlt Lib "gdi32" (ByVal hDestDC As Long,ByVal X As Long,ByVal Y As Long,ByVal nWidth As Long,ByVal nHeight As Long,ByVal hSrcDC As Long,ByVal xSrc As Long,ByVal ySrc As Long,ByVal dwRop As Long) As LongPrivate De[详细]
-
VB发邮件1
所属栏目：[百科] 日期：2020-12-17 热度：173
'///////////////////////////////////////////'' 本程序为简邮邮件组件的演示程序'' 作者: 三毛' QQ:510784518' 博客：http://hi.baidu.com/suruiqiang''///////////////////////////////////////////Option ExplicitPrivate Declare Function SendMail Lib[详细]
-
VB自动注册DLL文件
所属栏目：[百科] 日期：2020-12-17 热度：185
Const A = 10Const B = 5Private Sub Command1_Click()Dim oMathLib As New Class1Dim r As IntegerMsgBox oMathLib.Add(A,B)End SubPrivate Sub Command2_Click()'uninstallShell "cmd /c RegSvr32 /u /s DllTest.dll",vbHideEnd SubPrivate Sub Command3_C[详细]
-
Vb中Index的用法
所属栏目：[百科] 日期：2020-12-17 热度：116
函数 INDEX() 有两种形式：数组和引用。数组形式通常返回数值或数值数组；引用形式通常返回引用。 语法： INDEX(array ， row_num ， column_num) 返回数组中指定的单元格或单元格数组的数值。 INDEX(reference ， row_num ， column_num ， area_num) 返回[详细]
