2007年08月_SImonJ07

12月 11月 10月 09月 08月 07月

原创 vb 日語輸入法kana 模式

前幾天寫程序的時候使用了如下代碼：Private Sub Text1_KeyPress()Sub Text1_KeyPress(Index As Integer, KeyAscii As Integer) If KeyAscii = vbKeyReturn Then sendkeys "{tab}" End IfEnd Sub form上有文本框数

2007-08-24 11:44:00 1893

原创 ASCII表

ASCII 非打印控制字符 ASCII 表上的数字 0–31 分配给了控制字符，用于控制像打印机等一些外围设备。例如，12 代表换页/新页功能。此命令指示打印机跳到下一页的开头。 ASCII 非打印控制字符表十进制十六进制字符十进制十六进制字符 0 00 空 16 10 数据链路转意 1 01 头标开始 17 11 设备控制 1 2 02 正文开始 18 12 设备控制 2

2007-08-20 11:28:00 1301

原创 VB txt 转换 excel 的小程序

首先要对excel进行引用 Private Sub Command1_Click()Sub Command1_Click() TxtToExcel "E:/1.txt", " " End SubSub TxtToExcel()Sub TxtToExcel(txtFile As String, DistanceChar As String)On Error GoTo L 建立e

2007-08-16 09:37:00 4571 1

原创 VBA 字数统计

VBA ActiveDocument.BuiltInDocumentProperties("Number of characters")

2007-08-06 09:16:00 1375

原创 vb 带新建文件夹的文件夹浏览窗口 BrowseForFolder

感谢 Zezese（蓝酷云）同学http://topic.csdn.net/t/20050807/23/4194587.htmlOption Explicit Private Type BROWSEINFOTYPE hOwner As Long pidlRoot As Long

2007-08-06 09:15:00 4298

空空如也

TA创建的收藏夹 TA关注的收藏夹

TA关注的人