===窗体代码==== Private Sub Form_Load() TrayAddIcon Form1, picture1(0).picture, "系统" 新建一个图标 End Sub Private Sub Timer1_Timer() a = Not a If a = True Then TrayIcon Picture1(0).Picture Else TrayIcon Pict

比较傻的文件方式Dim n  If Dir("c:/1")         Open "c:/1" For Input As #1                Input #1, n        Close #1        If Val(n)                 n = Val(n) + 1        Else                MsgBox "已过期"  

 vb界面技巧（一）    用了2年的VB，面对着越来越多的界面漂亮的程序，我问自己：为什么我开发的程序的界面没有那么漂亮？不能老是说：“程序的重点是功能，而不是界面”，那是欺骗自己的做法。为了进一步掌握VB的界面设计技巧，我进行了分析和实验，并将结果总结出来，以利于大家参考。（本文重点放在界面上，不是说程序的功能不重要，不要引起误解。）一、了解界面所涉及到的元素      当我们惊叹于一个漂亮的

 　WINDOWS状态栏也称系统托盘，在WINDOWS9X中已有系统时钟、音量控制、输入法等程序在WINDOWS的状态栏中设有图标，一些应用程序在安装完后也将它们本身的图标放入了状态栏中，如超级解霸、WINAMP等。通过在应用程序中有效地控制状态栏中的图标，不仅可以使应用程序具有专业水准，也方便了用户的操作。VB做为一种使用很广的高级语言，实现将图标放入状态栏的功能并不困难，只要有效地利用一个AP

 流对象方法Private Sub Command1_Click()  WriteToTextFile "c:/unicode.txt", Text1.Text, "unicode"End SubSub WriteToTextFile(FileUrl, ByVal Str, CharSet)  Set stm = CreateObject("adodb.stream")  stm.Type =

   Set nod = TreeView1.Nodes.Add("Stock", tvwChild, "SMaterial", "01(原料)", 4, 2)    Set nod = TreeView1.Nodes.Add("SMaterial", tvwChild, "SMImp", "01(内销用料件)", 4, 2)    Set nod = TreeView1.Nodes.Add("S

 First, about form1在窗体上设置几个PictureBox控件 把要拖动的对象的DragMode设置成1-automatic(0-Manual)Private Sub Form_DragDrop(Source As Control,X As Single,y As Single)  form1.picture=source.pictureEnd subPrivate sub

 摘要：介绍计算机上实现gsm modem短消息收发的模式，描述gsm modem PDU 模式，包括PDU 模式下的gsm modem模块UCS2 编码、解码原理，以及gsm modem发送与接收PDU 串的编制方式一、短消息收发的实现模式计算机串口上连接GSM MODEM，用它向手机发送短消息,要求对AT 指令集和串口编程比较熟悉。这种方法收发短消息又分三种模式：BLOCK 模式、TE