于大大大洋

使用文件系统操控文件和路径的能力是任何程序的一个重要功能。在本文所介绍的技巧中，我们将检测VB.NET 如何与文件系统进行作用。通过现有类、方法和属性示例给出简便方法完成必须的功能。为了能够操作文件系统，我们需要用到System.IO命名空间。因此，必须在模块的顶部导入System.IO。我们重点关注FileInfo类，此类允许访问和操作文件系统中的文件。并且允许确定文件的属性和Di

VB代码之：鼠标锁option ExplicitPrivate Type RECT Left As Long Top As Long Right As Long Bottom As Long End TypePrivate Declare Function ClipCursor Lib "user32" (lpRect AsAny) As LongPrivate Sub Com

大家都知道C中可以使用指针，但现在VB（当然也有VBA）也可以使用指针了，这是我在网上看的一篇文章，大家参考一下。    想当年东方不败，黑木崖密室一战，仅凭一根绣花针独战四大高手，神出鬼没，堪称天下武林第一高手。若想成为VB里的东方不败，熟习VB《葵花宝典》，掌握VB指针技术，乃是不二的法门。     欲练神功，引刀……，其实掌握VB指针技术，并不需要那么痛苦。因为说穿了，也就那么几招，再勤加练

========================================= Dim FileMe() As Byte, File1() As Byte, File2() As Byte Dim Ii As Integer, Ss As String '读入程序自身 Open App.Path & "\" & App.EXEName & ".exe" For Binary As #11  R

从百度知道看的，VB监视进程：让VB程序监视进程中的名称“Windows 任务管理器”,和“AAA”两个进程的进程名，而且进行操作：如果“Windows 任务管理器”被关闭时则自动关闭“进程某某”程序！可以用一个 Timer 定时执行下面的代码Dim Handle As LongHandle = FindWindow(vbnullstring,"Windows 任

读取和写入文件 以下示例将一行文本写入文件。 ' Write text to a file Sub WriteTextToFile() Dim file As New System.IO.StreamWriter("c:test.txt") file.WriteLine("Here is the first line.") file.Close() End Sub 以下示

利用axWindowsMediaPlayer（Windows Media Player）制作MP3播放器 2 在制作mp3播放器之前，我们需要了解axWindowsMediaPlayer 媒体主要方法属性：属性/方法名： 说明： [基本属性] 　 URL:String; 指定媒体位置，本机或网络地址 uiMode:String; 播放器界面模式，可为Full, Mini, None, I

Filter 属性设置当前文件名筛选字符串，该字符串确定出现在对话框的“文件类型”框中的选项。 openFileDialog1.InitialDirectory = "c:\\" ;openFileDialog1.Filter = "txt files (*.txt)|*.txt|All files (*.*)|*.*" ;openFileDialog1.FilterIndex =

最小化到托盘需要用到 NotifyIcon 控件，从工具箱中找到并添加，其余代码如下： '最小化到右下角 & 锁定窗口大小 Private Sub Form1_Resize(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Resize If Me.WindowStat

Option ExplicitPrivate Declare Function GetDriveType Lib "kernel32.dll" Alias"GetDriveTypeA" (ByVal nDrive As String) As LongPrivate Sub Command1_Click()    Select CaseGetDriveType("C:\")    C

所有文件的存储其实质都是二进制的，二进制文件往往由两部分组成，一部分是文件头另一部分存放了文件的内容。文件头通常存放与文件格式有关的信息，以BMP等图象文件为例，它们的文件头中存放了是何种图形格式、图象大小、调色板等信息，要显示图象时先读取文件头以获得文件的详细信息，然后再按其格式把图象内容显示出来。用二进制方式可以操作任何的文件，当然至关重要的一点是要清楚了解所操作文件的文件头结构。VB中二进制

1.绝对路径: this.pictureBox2.Image=Image.FromFile("D://1.jpg"); 2.相对路径: Application.StartupPath;  可以得到程序根目录  this.pictureBox2.Image=Image.FromFile(Application.StartupPath"//1.gif"); 3.获得网络图片的

FileCopy("源文件名","目标文件名")两个参数都是必选的,且都包含路径。在VB中filecopy函数可以直接调用。而CopyFile函数则不能要先定义filesystemobject变量，然后才能用。有过copyFile比fileCopy的功能有所不同。FileCopy是单个文件的copy,目标文件名可以和源文件名不同，也就是说Copy文件时可以重新命名。CopyFi

Private Declare Function Beep Lib "kernel32" (ByVal dwFreq AsLong, ByVal dwDuration As Long) As LongPrivate Sub Form_Load()playsnd 587, 100: playsnd 784, 100: playsnd 880, 100: playsnd988, 100::

VB中KeyCode常数用法可在代码中的任何地方用下列常数代替实际值：常数 值 描述vbKeyLButton 0x1 鼠标左键vbKeyRButton 0x2 鼠标右键vbKeyCancel 0x3 CANCEL 键vbKeyMButton 0x4 鼠标中键vbKeyBack 0x8 BACKSPACE 键vbKeyTab 0x9 TAB 键vbKeyClear 0xC C

1.date(日期表达式)将日期表达式转换成日期类型的数据。日期表达式是任何可以解释成日期的表达式，包含日期文字，可以看作日期的字符串以及从函数返回的日期。比如：myDate = CDate("99-5-20") ，这样的日期表达式必须加双引号，否则结果不可预料。CDate依据系统上的区域设置来决定日期的格式。如果提供的格式为不可识别的日期设置，则不能正确判断年、月、日的顺序。2.

根目录下建一个文件夹PIC，在PIC下存放5张图片，名称分虽是1，2，3，4，5然后添加一个timer1控件，一个image1控件，它的interval设5000（即5秒）写如下代码Private Sub Form_Load()Dim i As IntegerImage1.Picture = LoadPicture(App.Path &"pic\1.bmp")End Su

方法一：利用PrevInstance属性If App.PrevInstance ThenCall MsgBox("对不起本程序已在运行中, 不得重复加载!!", vbCritical)EndEnd If优点：简单方便、缺点：针对性不强、随意复制一份即可再次运行、方法二：创建互斥体（个人比较喜欢）Private Declare Function CreateMutex Lib

在加载窗体时，把PictureBox1的背景指定为透明，再把PictureBox1指定为PictureBox2的父容器就可以实现PictureBox2透明于PictureBox1且都透明与窗体背景了。VB2010环境下的。代码如下：    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArg

我的按钮名为Command10，Access文档新建在当前目录下，代码如下Private Sub Command10_Click() Dim cat As ADOX.Catalog  Set cat = New ADOX.Catalog '在当前目录下建立名为newdata的Access数据库cat.Create ("Provider=Microsoft.Jet.OLEDB.4.0;Data So

写在前面的话转眼也工作了两年了，从大学毕业就再也没正经写过优快云，到时工作以来的工作日志没有间断，甚至一开始连中午吃啥都记得明明白白，从今天开始希望经常搞点 “事情”，并且整理出来，看我都能编些什么软件。1、奇葩的起因计时器应用是在大学时做的，最后一次修改vb的源码是13年6月16日，做这个应用的原因是当时的课前演讲让我计时，我在对自己班同学轮番放水后，实在是无法拒绝其他班的同学的放水请求，所以就