大数据_站长网

[VB.NET] JSON的產生與讀取匯入

所属栏目：[大数据] 日期：2020-12-16 热度：130

不詳細介紹JSON是什麼東東啦，反正就是一種資料交換或是傳遞的格式，還挺方便使用的[详细]
关于VB.NET的委托

所属栏目：[大数据] 日期：2020-12-16 热度：124

委托可以认为是一类方法签名一致的方法抽象类。委托对象必须由签名一致的方法实例化，而通过调用委托对象可以调用实例化委托对象的方法。 Public Class Form1 Public Delegate Function addMethod(ByVal x,ByVal y) As Integer Private Sub Button1_Click(B[详细]
判断字符串中是否含有某个字符

所属栏目：[大数据] 日期：2020-12-16 热度：149

InStr函数：寻找字符串可以用来判断字符串中是否含有某个字符串。或者用来判断某个字符在字符串中出现的位置。下面是一个判断字符串中是否含有逗号（，）的例子。 Sub test() Dim tcolor As String tcolor = "149 127" Dim aa As Integer aa = InStr(tcolor[详细]
调用一个函数返回多个结果

所属栏目：[大数据] 日期：2020-12-16 热度：125

下面是一个通过byref的形式来定义需要返回的形参，进而达到调用一个函数，可以返回多个结果的效果。本例中需要返回的是 aa和bb的结果。 Sub cc() Dim a As Integer,b As Integer,reta As Integer,retb As Integer a = 1 b = 2 test a,b,reta,retb End Sub Fu[详细]
Grid++Report 入手教程:VB 通过Grid Report 显示时间

所属栏目：[大数据] 日期：2020-12-16 热度：90

机房收费系统中的“周结账单”有一个功能是根据选定时间的范围，显示相应的账单数据，这时就用到了“参数”的设定。首先,在"报表主对象"中插入参数:右击"参数集合"--插入--参数(DateBegin 和DateEnd) 然后,在报表模版中插入综合文字框:--插入--部件框--综合[详细]
在图纸中添加日期和时间

所属栏目：[大数据] 日期：2020-12-16 热度：160

下面是一个往图纸中添加日期和时间的样例程序代码。 Sub test() Dim TextPosition(2) As Double TextPosition(0) = 2# TextPosition(1) = 2# TextPosition(2) = 0# ThisDrawing.ModelSpace.AddText Date " " Time,TextPosition,1 End Sub[详细]
在vb里谁知道shift，ctrl和alt，F1怎么表示？

所属栏目：[大数据] 日期：2020-12-16 热度：58

SHIFT + CTRL ^ ALT % F1 {F1} 答案补充这就是在代码中触发这些按键用的答案补充晕，这就是组合键时用的。答案补充 Option Explicit Private Sub Form_Load() Dim x x = Shell("C:Program FilesMicrosoft OfficeOFFICE11WINWORD.EXE",vbNormalFocus[详细]
VB中怎么模拟键盘按Shift+1键？？？

所属栏目：[大数据] 日期：2020-12-16 热度：148

我知道SendKeys Chr(13)是按下回车请问怎么模拟按下组合键：Shift+1键满意回答 2007-11-23 09:03 set wshshell=wscript.createobject("wscript.shell")wshshell.sendkeys "{Shift}"wshshell.sendkeys "{1}"[详细]
建立宽带连接VB脚本。

所属栏目：[大数据] 日期：2020-12-16 热度：193

建立宽带连接VB脚本。 Set objShell = CreateObject("Wscript.Shell")strCommandLine = "Rasphone -a"objShell.Run(strCommandLine)set WshShell = CreateObject("WScript.Shell")WScript.Sleep 200WshShell.SendKeys "r" WScript.Sleep 30WshShell.SendKeys[详细]
判断动态数组是否为空

所属栏目：[大数据] 日期：2020-12-16 热度：190

下面是一个判断动态数组是否为空，及是否被赋值过的样例程序。 Private Declare Function VarPtrArray Lib "msvbvm60.dll" Alias "VarPtr" (ByRef Ptr() As Any) As Long Private Declare Sub CopyMemory Lib "kernel32.dll" Alias "RtlMoveMemory" (ByRef D[详细]
对数组进行排序

所属栏目：[大数据] 日期：2020-12-16 热度：170

下面是一个对数组进行排序的样例程序。 Function sort_arr(arr As Variant) As Variant Dim Temp As Variant,i As Long For i = 0 To UBound(arr) If i 0 Then If arr(i) arr(i - 1) Then Temp = arr(i) arr(i) = arr(i - 1) arr(i - 1) = Temp i = i - 2 '×[详细]
vb.net反射机制反射教程

所属栏目：[大数据] 日期：2020-12-16 热度：102

下午没事写了小东西，来复习下反射机制 1 首先建一个项目，名字叫“Net反射机制”，注意不能改成其他，不然不好验证 2 在窗体上放几个按钮，一个文本框，如图项目中添加一个类用来反射他： Public Class ROBJ Private result As Integer = 0 Public Sub Ne[详细]
vb6串口接收数据事件的数据读出示例

所属栏目：[大数据] 日期：2020-12-16 热度：198

Private Sub MSComm1_On Comm() Dim BytReceived() As Byte Dim strBuff As String Dim i As Integer Select Case MSComm1.CommEvent '事件发生 Case 2 Cls MSComm1.InputLen = 0 '读入缓冲区全部内容 strBuff = MSComm1.Input '读入到缓冲区 If MSComm1.Inp[详细]
vb webbrowser 在原窗口打开弹出新窗口的链接

所属栏目：[大数据] 日期：2020-12-16 热度：107

代码1： Private Sub WebBrowser1_NewWindow2(ppDisp As Object,Cancel As Boolean) Dim frm As Form1 Set frm = New Form1 frm.Visible = True Set ppDisp = frm.WebBrowser1.object End Sub 代码2： Private Sub WebBrowser1_NewWindow2(ppDisp As Object,[详细]
VB 注册表操作

所属栏目：[大数据] 日期：2020-12-16 热度：183

'*****下面先声明一些常量****************************************** Public Const HKEY_CLASSES_ROOT = H80000000 Public Const HKEY_CURRENT_CONFIG = H80000005 Public Const HKEY_CURRENT_USER = H80000001 Public Const HKEY_DYN_DATA = H80000006 Pub[详细]
VB 快速读取文件内容的方法

所属栏目：[大数据] 日期：2020-12-16 热度：66

读取text文件的最快方法是使用Input$函数，就象下面的过程： Function FileText(ByVal filename As String) As String Dim handle As Integer' 判断文件存在性 If Len(Dir$(filename)) = 0 Then Err.Raise 53 '文件没有找到 End If ' 以binary模式打开文件 ha[详细]
vb 读取文件指定行

所属栏目：[大数据] 日期：2020-12-16 热度：55

Public Function ReadRowConnent(FileName As String,iRow As Integer) 'FileName = App.Path "Config.ini" If Len(Dir$(FileName)) = 0 Then err.Raise 53 '文件没有找到 '这里处理没找到文件事件 Else Dim j As Integer j = 0 Open FileName For Input As[详细]
VB 延时类

所属栏目：[大数据] 日期：2020-12-16 热度：127

Option Explicit Private TypeFILETIME dwLowDateTime As Long dwHighDateTime As Long End Type Private Const WAIT_ABANDONED=H80 Private Const WAIT_ABANDONED_0=H80 Private Const WAIT_FAILED=-1 Private Const WAIT_IO_COMPLETION=HC0 Private Const[详细]
数组最后一项移到最前，其他顺序往后移

所属栏目：[大数据] 日期：2020-12-16 热度：154

下面是一个将数组最后一个值移到数组的最前项，其他项顺序往后移的样例程序。 Sub test() Dim arr(6) As Integer arr(0) = 1 arr(1) = 8 arr(2) = 23 arr(3) = 89 arr(4) = 120 arr(5) = 218 arr(6) = 256 Dim i As Integer Dim temp As Integer For i = 0 T[详细]
按钮的两个图片切换效果

所属栏目：[大数据] 日期：2020-12-16 热度：179

下面是一个通过单击按钮来切换两个图片的显示的样例程序。 Dim a As IPictureDisp Dim b As IPictureDisp Private Sub CommandButton1_Click() CommandButton1.Picture = IIf(CommandButton1.Picture Is a,b,a) End Sub Private Sub UserForm_Initialize() S[详细]
vb邮件功能测试

所属栏目：[大数据] 日期：2020-12-16 热度：74

VERSION 5.00Object = "{20C62CAE-15DA-101B-B9A8-444553540000}#1.1#0"; "MSMAPI32.OCX"Begin VB.Form Form1 BorderStyle = 1 'Fixed Single Caption = "Form1" ClientHeight = 6405 ClientLeft = 45 ClientTop = 330 ClientWidth = 8745 LinkTopic = "Form[详细]
用VB做报表（一）

所属栏目：[大数据] 日期：2020-12-16 热度：92

机房收费系统的最后一个难关是关于报表的，这个领域对我们来说是陌生的，在经过一番探索之后终于掌握了报表制作的完整步骤。虽然还比较简单，但对于现在的使用来说已经足够了。下面就以一个创建“机房首日日汇表.grf”的过程为例子展开：首先打开锐浪报表设[详细]
关于VB中Timer停止的问题

所属栏目：[大数据] 日期：2020-12-16 热度：164

学VB的一个朋友在有关Timer控件停止的问题，我给了一个回答：将Enabled设为False，或者将Interval设为0 于是TA问，两者有什么区别呢？就这个问题，我们还是来做一个实验吧。创建一个新工程，在默认新建的窗体上，创建3个Command和一个Timer 使用如下代码[详细]
VB.NET多线程Socket实现简单HTTP服务

所属栏目：[大数据] 日期：2020-12-16 热度：135

Imports System.NetImports System.Net.SocketsImports System.ThreadingModule monkeyServerPrivate Const HttpVersion As String = "HTTP/1.1"Private Const WebTitle As String = "headtitleMonkey Server/title/head"Private ReadOnly ReasonPhrase4() A[详细]
做一个VB记事本的感想和遗留下的问题

所属栏目：[大数据] 日期：2020-12-16 热度：112

花了几个星期去完成一个VB实训项目，到今天可以说是告一节了，但是我还是留下一个问题：我的记事本里的打开对话框，当我打开我的对话框，点击“取消”时却出现了如下的错误提示，对此我很不解。我用的是visual studio 2010 VB 写的！我的代码如下： Sub open[详细]

63967

首页

294