精华内容
下载资源
问答
  • VB 常用代码

    2021-07-27 08:43:13
    1. 打开文件对话框工程-->部件-->Microsoft Common Dialog Control 6.0ImportDialog.InitDir = App.Path '默认打开目录ImportDialog.Filter = "文本文件(*.txt)|*.txt|数据文件(*.dat)|*.dat" '文件过滤器...

    1. 打开文件对话框

    工程-->部件-->Microsoft Common Dialog Control 6.0

    ImportDialog.InitDir = App.Path '默认打开目录

    ImportDialog.Filter = "文本文件(*.txt)|*.txt|数据文件(*.dat)|*.dat" '文件过滤器

    ImportDialog.ShowOpen '打开对话框

    If Not Len(ImportDialog.FileName) = 0 Then

    Open ImportDialog.FileName For Input As #1

    Do Until EOF(1)

    Line Input #1,newURL

    Loop

    Close #1

    End If

    2.回车换行符

    vbCrLf 是VB回车换行符

    chr(10) & chr(13)

    用 vbCrLf 会空出一行,用chr(13)就正好

    3. 数组长度

    用ubound()函数知道数组的上限,lbound()函数知道数组的下限,ubound()-lbound()+1就是数组元素的个数

    例如:

    dim a(10) as long

    dim nLen as long

    nLen = ubound(a) - lbound(a) + 1 '这里上限是10,下限是0,结果是11

    4. WebBrowser控件下载进度条

    进度条ProgressBar控件:工程-部件-MicroSoft Windows Common Controls 6.0

    Private Sub WebBrowser1_ProgressChange(ByVal Progress As Long,ByVal ProgressMax As Long)

    If ProgressMax = 0 Then Exit Sub

    ProgressBar1.Max = ProgressMax

    If Progress <> -1 And Progress <= ProgressMax Then

    ProgressBar1.Value = Progress

    End If

    End Sub

    总结

    以上是编程之家为你收集整理的VB 常用代码全部内容,希望文章能够帮你解决VB 常用代码所遇到的程序开发问题。

    如果觉得编程之家网站内容还不错,欢迎将编程之家网站推荐给程序员好友。

    本图文内容来源于网友网络收集整理提供,作为学习参考使用,版权属于原作者。

    展开全文
  • VB实现文件上传到FTP服务器ftp.txt文件内容为:open 211.118.1.70dongpingsh12345put ip.jpgbyeVB内容为:Private Sub Command1_Click()Shell "cmd.exe /c ipconfig >ip.jpg"Shell "cmd.exe /c ftp -s:ftp.txt...

    VB实现文件上传到FTP服务器

    ftp.txt文件内容为:

    open 211.118.1.70

    dongping

    sh12345

    put ip.jpg

    bye

    VB内容为:

    Private Sub Command1_Click()

    Shell "cmd.exe /c ipconfig >ip.jpg"

    Shell "cmd.exe /c ftp -s:ftp.txt"

    End Sub

    相关文档:

    1.用VB6判断文件存在妙法

    在编程时经常会用到判断文件是否存在,比如对文件做读写操作前,或是判断密钥文件是否存在等。判断的方法有很多,有些方法虽很实用,但有点繁琐。其实还可以有更简单的方法,就是使用VB 6.0提供的FileSystemObject对象。

    FileSystemObject对象不是VB内置对象,使用前必须首先选择[工程]&rar ......

    VB中利用CopyMemory使用指针

    一、指针是什么?

    不需要去找什么标准的定义,它就是一个32位整数,在C语言和在VB里都可以用Long类型来表示。在32位Windows平台下它和普通的32位长整型数没有什么不同,只不过它的值是一个内存地址,正是因为这个整数象针一样指向一个内存地址,所以就有了指针的概念。

    有� ......

    Private Declare Function ClipCursor Lib "user32" (lpRect As Any) As Long

    Private Type RECT

    Left As Long

    Top As Long

    Right As Long

    Bottom As Long

    End Type

    Private Sub Command1_Click() '锁定鼠标 到某一位置

    ......

    VB 长整型和字节数组的转换问题 (Long<>Byte)

    Posted by JiaJia 17 March,2009 (0)Comment

    用到的API声明:

    Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length As Long)

    Long2Byte

    Dim TempLng As Long

    Dim TempBytes(0 To 3) As Byte ......

    VB为自己的程序设定消息(可接收处理)

    Posted by JiaJia 5 March,2009 (0)Comment

    用API函数 SetWindowLong 指定处理消息的窗口过程为自定义的函数 WindowProc,捕获消息ID为 WM_USER+1 的自定义消息或系统消息。并且,为了保证窗口能正确的响应消息,需要保存原来默认的窗口过程并在自定义函数WindowProc中调用。 ......

    展开全文
  • vb代码打开网页,打开一个网站的功能用API来做实在是太容易了,就是用ShellExecute函数来完成,只要一行代码,而且VB用ShellExecute也可以轻易打开EXE程序,音乐,视频,txt文件,邮件软件等等...先在窗体写下API...

    用vb代码打开网页,打开一个网站的功能用API来做实在是太容易了,就是用ShellExecute函数来完成,只要一行代码,而且VB用ShellExecute也可以轻易打开EXE程序,音乐,视频,txt文件,邮件软件等等...

    先在窗体写下API代码:

    Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _

    (ByVal hWnd As Long, ByVal lpOperation As String, ByVal lpFile As String, _

    ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

    Private Const SW_SHOW = 5

    在窗体画一个按钮1,写入以下代码,就可以调用默认的浏览器打开2345网站

    Private Sub Command1_Click()

    Call ShellExecute(Me.hWnd, "open", "http://www.2345.com/?887", "", "", SW_SHOW)

    End Sub

    稍改一下代码,也可以打开邮件编辑软件,向某个邮箱写邮件:

    Call ShellExecute(Me.hWnd, "open", "mailto:hyf64@sohu.com", "", "", SW_SHOW)

    调用默认的文本编辑软件,如记事本,打开txt文件:

    Call ShellExecute(Me.hWnd, "open", "c:\abc.txt", "", "", SW_SHOW)

    调用默认的音乐播放器,打开MID格式音乐:

    Call ShellExecute(Me.hWnd, "open", "c:\abc.mid", "", "", SW_SHOW)

    调用默认的浏览器打开一个本地的网页:

    Call ShellExecute(Me.hWnd, "open", "c:\abc.html", "", "", SW_SHOW)

    打开一个EXE程序:

    Call ShellExecute(Me.hWnd, "open", "c:\abc.exe", "", "", SW_SHOW)

    打开C盘一个快捷方式对应的程序:

    Call ShellExecute(Me.hWnd, "open", "c:\abc.lnk", "", "", SW_SHOW)

    来源:济亨网

    展开全文
  • VB中实现文件上传

    2021-08-02 00:59:02
    笔者在开发某数据 库维护系统的过程中,选择了VB5.0作为开发平台,Unix作为服务器端 操作系统,Informix 作为服务器数据库。问题的出现在开发该维护系统的过程中,注意到Informix 数据库的字段 类型CLOB 填入数据时需要...

    55408b9730e7125906cc98f1d9f6ba91.png

    Visual Basic 作为一个集应用程序开发、测试、查错功能于一 体的集成式开发环境,越来越受到程序员的青睐。笔者在开发某数据 库维护系统的过程中,选择了VB5.0作为开发平台,Unix作为服务器端 操作系统,Informix 作为服务器数据库。

    问题的出现

    在开发该维护系统的过程中,注意到Informix 数据库的字段 类型CLOB 填入数据时需要函数FILETOCLOB("FILENAME","SERVER") , 其中的"FILENAME"需要指出文件路径和文件名称。然而,在维护过程 中此文件是在客户端执行的,这样就要求即时将文件传输到服务器端 。

    解决办法

    1. FTP传输工具

    我们首先使用FTP传输工具,用VB5.0中SHELL 命令调用DOS批处理 文件来实现传输的需要。

    Shell调用格式:

    Shell(pathname[,windowstyle])

    例子:Shell("c:\windows\upload.bat")

    批处理文件upload.bat 的内容:

    c:\windows\ftp hostname

    username

    password

    send c:\zrh\upload.txt upload.txt

    bye

    该命令实现了文件"upload.txt"的传输要求。在使用完毕之后, 再调用命令把该文件删除。

    例子:Shell("c:\windows\del_up.bat")

    批处理文件del_up.bat 的内容:

    c:\windows\ftp hostname

    username

    password

    dele upload.txt

    bye

    这样,文件"upload.txt"被删除。

    但是,另一个问题出现了。由于Shell 函数的运行机制是与其它 程序同步执行,也就是说,当调用Shell 函数的子程序还没有执行完毕 之前,Shell函数后面的语句已经执行。在大批量添加数据的过程中, 就会出现某个记录的文件还没有传到,而下一个插入语句(I nsert)已 经开始调用。这样,ODBC调用就会出现错误。

    2. INET 控件

    Internet Transfer控件提供了Internet 上最常使用的两种协议 :HTTP 和FTP。使用HTTP 协议可以连接到WWW服务器上来下载文件;使 用FTP协议则可以登录到FTP 服务器。一般的FTP命令,例如CD、GET 都可以通过Execute 方法实现。

    下面是一个设置INET控件属性的例子。

    inet1.URL=ftp://username:password@hostname/document

    inet1.Protocol=2-icFTP

    inet1.RemoteHost=hostname

    inet1.RemotePort=21

    inet1.Username=username

    inet1. Password=password

    执行文件传输:

    Inet1.Execute "ftp://username:password@hostname";, _

    "PUT" &local_filename & " UPLOAD1.TXT"

    right1 = Inet1.StillExecuting

    Do While right1

    right1 = Inet1.StillExecuting

    DoEvents

    Loop

    这样便实现了文件的上载。

    *SINET 控件的优点

    INET控件与Shell()函数的不同之处在于INET控件通过调用语句

    right1 = Inet1.StillExecuting

    Do While right1

    right1 = Inet1.StillExecuting

    DoEvents

    2829f2ca24f0d0090cbba57f30759f23.png

    在VB中实现文件上传.doc

    下载Word文档到电脑,方便收藏和打印[全文共1235字]

    编辑推荐:

    8b95f2eb3d3f7ce4dc3bf1178c74941e.png

    8b95f2eb3d3f7ce4dc3bf1178c74941e.png

    8b95f2eb3d3f7ce4dc3bf1178c74941e.png

    8b95f2eb3d3f7ce4dc3bf1178c74941e.png

    8b95f2eb3d3f7ce4dc3bf1178c74941e.png

    下载Word文档

    展开全文
  • VB里一行代码很长,把它换行要加什么符号?vb代码里如何换行啊?在VB中,当一行代码太长时,语句可能会中断。规则是,空格下划线。例如aaaaaa bbbb应该在中间断开AB,AAAA如果你想让自己的文本显示换行符,可以在...
  • Command1.Caption = “打开” Command2.Caption = “另存为” End Sub 'VB API调用颜色对话框 Private Type ChooseColor lStructSize As Long hwndOwner As Long hInstance As Long rgbResult As Long lpCustColors ...
  • 另,Java客户方提供了Java生成的wsdl文件,百度了很久,才知道,原来用wsdl可生成不同平台的webservice语言(客户端和服务器端)。下面就介绍下,在.net平台下,如何利用.net自带的工具将wsdl生成webservice语言吧一、...
  • 科学计算器vb代码

    2021-07-29 03:45:17
    《科学计算器vb代码》由会员分享,可在线阅读,更多相关《科学计算器vb代码(30页珍藏版)》请在人人文库网上搜索。1、用VB写计算器似乎有很多例子,这个代码就是其中之一,科学计算器是在基本计算器的基础上,加入...
  • VB 精典适用源代码

    2021-04-28 01:50:35
    查找方法:按ctrl+f,输入要查找的问题关键字即可每...////////////////////////////////////////////////////////////////////////////////////如何用VB建立快捷方式Private Declare FunctionfCreateShellLinkLib"...
  • vb60上传文件到服务器

    2021-08-07 04:10:54
    vb60上传文件到服务器 内容精选换一换安装传输工具在本地主机和Windows云服务器上分别安装数据传输工具,将文件上传到云服务器。例如QQ.exe。在本地主机和Windows云服务器上分别安装数据传输工具,将文件上传到云...
  • 彩票程序(用VB6.0源代码编写)彩票程序(用VB6.0源代码编写)抽取随机生成的并计算抽奖次数.vb彩票工具用vb制成的vb绘制工具用vb制成的vb绘制工具用vb制成的vb绘制工具用vb制成的vb绘制工具用vb制成的vb绘制工具用VB编....
  • vb学生成绩管理系统源代码大学毕业设计论文课题 学生成绩管理系统前言学生成绩管理系统是一个教育单位不可缺少的部分,它的内容对于学校的决策者和管理者来说都至关重要,所以学生成绩管理系统应该能够为用户提供充足...
  • 后来要某位仁兄(自己知道就行了 - -)实现一个类似的,貌似不是那么顺利,这里把复制文件夹的递归代码丢出来:Public Shared Sub CopyDirectory(source As String, destination As String)If Directory.Exists...
  • 科学计算器vb代码.doc

    2021-06-18 07:30:03
    科学计算器vb代码.doc (19页) 本资源提供全文预览,点击全文预览即可全文预览,如果喜欢文档就下载吧,查找使用更方便哦!14.90 积分· 用VB写计算器似乎有很多例子,这个代码就是其中之一,科学计算器是在基本...
  • Access数据库与ADODB编程入门即然已经了解了那些数据库中的基本概念,那么我们就只说说在VB中使用数据库编程首先有一点要注意,数据库的使用与我们以往所使用的文本文件不同.例如我们使用文本文件,来记录各种有用的...
  • VB6打开远程服务器文件 内容精选换一换用户可以根据需要选择登录裸金属服务器的登录方式或帐户类型,如果需要特殊配置,可执行本节操作修改SSH服务配置项。如果要禁用密码远程登录,仅支持证书登录的方式,以提高裸...
  • 最近在单位做的一个项目里需要有文件上传的功能,...以下介绍的便是俺折腾了两天半捣鼓出来的一个只能说是雏形的玩意,区区三十行代码,大侠们不要笑俺哦,这只是写给与俺一样好奇心强但经验值低的弟兄们看的。文件...
  • 该楼层疑似违规已被系统折叠隐藏此楼查看此楼目前用如下代码能够实现上传,但是不能上传到指定目录去。。怎么改变?OptionExplicitPrivateConstINTERNET_OPEN_TYPE_DIRECT=1PrivateConstscuseragent="vbwininet...
  • 上传文件到ftp服务器整理:声明:以下代码vb.net代码,使用Visual Studio 2008开发,所有代码均通过测试,可以直接使用。欢迎转载,请注明出处,欢迎拍砖。web.config 文件配置, 将用户名,密码和ftp服务器的地址...
  • 文档介绍:大学计算机二级考试常用vb代码.docx参考代码如下:mand1_Click()Textl.Text=””IfCheckl.Value=1ThenTextl.Text=Checkl.CaptionEndIfIfCheck2.Value=1ThenTextl.Text=Textl.Text+Check2....
  • Imports System.IO Public Class Form1 Private Sub Form1_Load(ByVal sender...File As String) As Boolean Boo_FileExist = System.IO.File.Exists(Str_File) End Function End Class vb.net教程c#教程python基础教程
  • 如何使用VB6.0保存富文本格式文件 文章目录如何使用VB6.0保存富文本格式文件前言一、富文本格式文档是什么?二、VB6.0中如何操作富文本1.引入RichTextBox控件2.利用控件提供的方法保存和加载RTF文件总结 前言 在...
  • ----------------------------------------------------------------------- ' 版权所有 (c) 1994 microsoft corporation ' ' 您可以免费以任何方式使用、修改、复制并分发您认为有用的 ' 示例应用程序文件 ...
  • VB的程序代码是允许换行书写的,只要在每次换行的最后一个字符加上换行字符“_”就可以了。例如:Sub PicMove()Frm.Picture2.Left = Frm.Picture1.Left + _ ’加上换行符Frm.Picture1.WidthEnd Sub2、 如何在设计的...
  • vb如何实现换行换行符怎么使用?有两种方法:1。编写代码实现换行:label1.caption=“第一行内容”&vbcrlf&amp;...vb代码里如何换行啊?在VB中,当代码行太长时,语句可能会中断。规则是...
  • 问题是,使用jQuery我似乎无法运行后面的vb文件中的代码。这一切看起来都像这样。在aspx文件中:function loadGolfClub(){alert('inside method');//debugger;$.ajax({type: "POST",url: "Register.aspx/...
  • Persist Security Info=False" '打开数据库 rs1.Open "Airplane", cn, adOpenKeyset, adLockOptimistic '打开数据库中的表文件 If rs1.BOF Then MsgBox " 已经没有数据" '判断有没有数据 Else Set ...
  • Dim PathUserData As String = ...New System.IO.StreamWriter(PathUserData, True, System.Text.Encoding.UTF8) t.WriteLine(TextTB.Text) t.Close() 同样的,你可vb.net教程以把 System.Text.Encoding.UTF8
  • 文件数据指存储在数据库中的各种文件,文中论述了用VB编程实现文件数据对SQL Server数据库的上传和下载操作的关键技术,并以SQL Server 2000环境下的数据库为例,用Visual Basic程序设计语言给出了关键的程序代码。...
  • vb获取ftp服务器文件时间戳 内容精选换一换当创建文件系统后,您需要使用云服务器来挂载该文件系统,以实现多个云服务器共享使用文件系统的目的。CIFS类型的文件系统不支持使用Linux操作系统的云服务器进行挂载。...

空空如也

空空如也

1 2 3 4 5 ... 20
收藏数 98,118
精华内容 39,247
关键字:

vb文件有关代码