VB操作WORD
Dim wdapp As Word.Application
Dim wddoc As Word.Document
Dim wdtable As Word.Table
Set wdapp = CreateObject("word.application")
Set wddoc = wdapp.Documents.Add
wdapp.Visible = True
wdapp.Activate
wdapp.Caption = "ICU人员排班表"
wdapp.Selection.Font.Name = "宋体"
wdapp.Selection.Font.Size = 22
wdapp.Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter
wdapp.Selection.TypeText Text:="标题"
wdapp.Selection.TypeParagraph
wdapp.Selection.TypeParagraph
wdapp.Selection.Font.Name = "宋体"
wdapp.Selection.Font.Size = 20
'添加表格
Set wdtable = wdapp.ActiveDocument.Tables.Add(wdapp.Application.Selection.Range, Grid1.Rows, NumColumns _
:=8, DefaultTableBehavior:=wdWord9TableBehavior, AutoFitBehavior:= _
wdAutoFitFixed)
wdtable.Range.ParagraphFormat.Alignment = wdAlignParagraphCenter
wdtable.Range.Font.Name = "宋体"
wdtable.Range.Font.Size = 10.5
wdtable.Cell(1, 1).Range.Text = "姓名"
wdtable.Cell(1, 2).Range.InsertAfter "星期一"
wdtable.Cell(1, 3).Range.InsertAfter "星期二"
wdtable.Cell(1, 4).Range.InsertAfter "星期三"
wdtable.Cell(1, 5).Range.InsertAfter "星期四"
wdtable.Cell(1, 6).Ra
相关文档：
该方法不需要使用API及第三方控件
这里使用的是VB的UserControl控件的AsyncRead方法
步骤如下:
1、添加一个用户控件，设置InvisibleAtRuntime属性为true，目的是运行时该控件不显示用户界面，就象Timer控件一样。
2、到自定义控件的代码窗口，添加如下代码
Option Explicit
'下载结果枚举
Public Enum Downloa ......
Option Explicit
Private Declare Function GetSystemMenu Lib "user32" (ByVal hWnd As Long, ByVal bRevert As Long) As Long
Private Declare Function DeleteMenu Lib "user32" (ByVal hMenu As Long, ByVal nPosition As Long, Optional ByVal wFlags As Long = 0&) As Long
Private Declare Function DrawMenu ......
VB编写托盘图标有两个要点，一是使用 Shell_NotifyIcon 函数显示图标；二是向系统注册 TaskbarCreated 消息，以便explorer崩溃时恢复托盘的图标。
首先需要增加一个模块文件，内容如下：
Public Declare Function Shell_NotifyIcon Lib "shell32.dll" Alias "Shell_NotifyIconA" (ByVal dwMessage As Long, lpData As NOT ......
键盘是我们使用计算机的一个很重要的输入设备了，即使在鼠标大行其道的今天，很多程序依然离不开键盘来操作。但是有时候，一些重复性的，很繁琐的键盘操作 总会让人疲惫，于是就有了用程序来代替人们按键的方法，这样可以把很多重复性的键盘操作交给程序来模拟，省了很多精力，按键精灵就是这样的一个软件。那么 我们怎样才 ......
Option Explicit
Private Const INTERNET_OPEN_TYPE_DIRECT = 1
Private Const scuseragent = "vb wininet"
Private Const INTERNET_FLAG_PASSIVE = &H8000000
'调用设置环境
Private Declare Function InternetOpen Lib "wininet.dll" Alias "InternetOpenA" (ByVal sAgent As String, ByVal lAccessType As Long ......
