【VB】改变窗体透明度
—— 发布于 2016-11-08 18:28:00
> **程序代码** '参考地址:http://baike.baidu.com/view/1329156.htm ``` Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long...
【VB】复制文件,文件夹
**程序代码:** ``` Private Sub Command1_Click() FileCopy "c:\a.txt", "d:\a.txt" 'C盘文件a...
【VB】简繁体字转换
> **程序代码** ``` Private Declare Function LCMapString Lib "kernel32" Alias "LCMapSt...
【VB】二进制操作(文件文本互转)
> **程序代码** '此代码可做加壳程序 ``` Private Sub 文件转文本_Click() '文件转文本 文件转文本.Enabled = ...
【VB】二进制操作(二进制合并拆分)
> **程序代码** ``` Private Sub Command1_Click() '合并 Dim abc() As Byte ...
【VB】二进制操作(把某个文件n等分)
> **程序代码** ``` Dim 总字节 As Long Dim 字节缓存 As Long Dim 开始 As Long Dim 结束 As Long ...
【VB】导入文本
> **程序代码** ``` Private Sub Command1_Click() '从根目录导入到text Open App.Path & "\...
【VB】导入普通图片
> **程序代码** ``` Private Sub Command1_Click() Picture1.Picture = LoadPicture("...
【VB】导入PNG图片
> **程序代码** ``` Private Sub Command1_Click() Call 加载PNG图片(App.Path & "\验证码.pn...
【VB】导出文本
> **程序代码** ``` Private Sub Command1_Click() '以(覆盖)模式导出text Open App.Path & "...