Xilin's Blog

private void helloWorld_MouseDown(object sender, MouseEventArgs e)
        {
            showpaint = true;
        }

……

int count = 0;
        private void button1_Click(object sender, EventArgs e)
        {
         
            count=c
……

a = 100 * Rnd()
'文件写入，在原先文本后追加内容 print
Open App.Path + "/文本汇总.txt" For Append As #1
Print #1, Str(a)
Close #1
'文件写入，在原先文本后追加内容 write（追加内容带有引号如："09010102"）
Open App.Path + "/文本汇总.txt" For Append As #1
Write #1, Str(a)
Close #1
'文件写入，每次覆盖文本先前内容
Open App.Path + "/文本汇总.txt"
……

●法一:                                    
Windows XP是一个比较安全的操作系统，每次启动时都要求选择账户并输入密码，对于公用电脑，这样当然更安全，但是如果这台电脑是一个人用，也没有什么
……

很多时候我们无法正常结束EXCEL进程       

……

昨天让学生使用了自编的网络测评软件，发现这么一个问题。很多学生在做完操作题（exlcel和frontpage）后，忘记关闭相应软件或没彻底关闭进程。导致不能正常退出，而弹出切换至对话框。在手工结束exlce和frontpage 进程后变可解决。

将以下代码加入程序中，在程序退出时强行结束进程。

Shell "cmd /c taskkill /f /im excel.exe"   ‘结束excel进程

……

事件记录（日记本）.rar

vb中建立网络文件夹- -

                                      

……

编了一个批量修改长文件名的工具

适用于同一文件夹中，多个（类似）文件名批量修改

如：

[电影天堂www.dygod.cn]【铁齿铜牙纪晓岚第四部-19】[D-VB].rmvb

[电影天堂www.dygod.cn]【铁齿铜牙纪晓岚第四部-20】[D-VB].rmvb

……

第一步：新建一个Modules，假设为Modulas1.bas
把下面的复制到Module.bas中

……

就像Winamp一样，仅用SendMessage发送消息，就可控制其播放、上下曲，还有关键的能控制进度。
……

使用ADODB

　　首先，声明一个链接变量，并根据需要声明记录集变量。

Dim LocCnn1 As ADODB.Connection
Dim LocRst1 As ADODB.Recordset
　　建立与数据库的链接，如果数据库没有口令，最后一行可以不写（写上也不会错）。
……

p = "c:\ada\dte\sdfe\432141321234dte.exe"
For i = 1 To 30
c = Right(p, i)
If Left(c, 1) = "\" Then
Exit For
End If
Next i
d = Mid(c, 2, i - 1)
Print d

使用vb将bmp图片设置为桌面背景

……

……

……

……

vb实现ftp上下载文件
Private Declare Function DoFileDownload Lib "shdocvw.dll" (ByVal lpszFile As String) As Long
Private Sub Command1_Click()

……

……

Private Declare Function DoFileDownload Lib "shdocvw.dll" _
    (ByVal lpszFile As String) As Long

Private Sub Form_Load()
  Text1.Text = "\\10.56.89.25\转存空间\05.xls"
End Sub

……