- 博客(0)
- 资源 (9)
- 收藏
- 关注
VB完美皮肤 换肤演示 破解版SkinH_VB6.dll
VB完美皮肤 换肤演示 破解版SkinH_VB6.dll,使用前将SkinH_VB6.dll拷到系统文件夹下 如:winXP是C:\WINDOWS\system32 www.97tt.org
2011-12-22
VB中WebBrowser控件运用 自动获取网页表格数据 网页表格内容自动提取 VB源码
'此代码发布后,可随意改哈,欢迎光临我的网址导航网站 http://www.97tt.org
Private Declare Function ShellExecute Lib "shell32.dll" Alias _
"ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, _
ByVal lpFile As String, ByVal lpParameters As String, _
ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Private Sub Command1_Click()
Unload Me
End Sub
Private Sub Command2_Click()
On Error Resume Next
RichTextBox1.Text = ""
Dim Tables As IHTMLElementCollection
Set Tables = WebBrowser1.Document.getElementsByTagName("Table")
Dim Table1 As HTMLTable
Dim Row As HTMLTableRow, Cell As HTMLTableCell
For Each Table1 In Tables
'Next
For i = 1 To Table1.rows.length - 2 ' 逐行处理
Set Row = Table1.rows(i)
j = 0
For Each Cell In Row.cells ' 逐列处理
RichTextBox1.Text = RichTextBox1.Text + Trim(Row.cells(j).innerText) + ","
j = j + 1
Next
' 一行处理完毕后,去除行尾的逗号并加上回车
RichTextBox1.Text = Left(RichTextBox1.Text, Len(RichTextBox1.Text) - 1) + vbCrLf
Next
Next
End Sub
2011-08-10
VB 键盘钢琴+自动播放 源代码
Private Sub Form_KeyPress(KeyAscii As Integer)
If KeyAscii > 96 And KeyAscii < 123 Then
asCikey = KeyAscii - 90 '为键盘指定音节位置,如网上的FLASH音节一样
key asCikey
a(no50(asCikey)).AddLabel.Appearance = 1 '使大键3D效果
End If
End Sub
2011-06-05
Windows+API函数大全
1. API之网络函数
WNetAddConnection 创建同一个网络资源的永久性连接
WNetAddConnection2 创建同一个网络资源的连接
WNetAddConnection3 创建同一个网络资源的连接
WNetCancelConnection 结束一个网络连接
WNetCancelConnection2 结束一个网络连接
WNetCloseEnum 结束一次枚举操作
WNetConnectionDialog 启动一个标准对话框,以便建立同网络资源的连接
WNetDisconnectDialog 启动一个标准对话框,以便断开同网络资源的连接
WNetEnumResource 枚举网络资源
WNetGetConnection 获取本地或已连接的一个资源的网络名称
WNetGetLastError 获取网络错误的扩展错误信息
WNetGetUniversalName 获取网络中一个文件的远程名称以及/或者UNC(统一命名规范)名称
WNetGetUser 获取一个网络资源用以连接的名字
WNetOpenEnum 启动对网络资源进行枚举的过程
2011-06-05
flash键盘钢琴 flash半音键盘钢琴 琴谱 简谱翻译器
这是网上收集整理的,纯属娱乐,比较好玩
压缩包内有两款Flash钢琴,一个有半音,按数字键那种,可录入琴谱,自动弹奏,一个简单的,附带一堆流行音乐琴谱,简谱翻译器是VB绿色小软件
2011-04-18
windows系统自带音量控制程序 sndvol32.exe
有时不小心,音量控制图标就没了,这还真是个小麻烦
A。“将音量图标放入任务栏”无效。因为丢失sndvol32.exe,文件路径C:\WINDOWS\system32
可以在别的机上复制个sndvol32.exe,或找个系统光盘找到sndvol32.ex_文件复制到system32后,重命名为sndvol32.exe
B。控制面板”—“声音和音频设备”—“将音量图标放入任务栏”只要打勾就行了
C。如重启后任务栏还没有音量控制图标
这种时候只要在注册表里的启动项恢复被删除的项就行。
开始”——“运行”输入regedit打开注册表以后,依次
打开HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run
在它的右窗口新建字串"Systray"(在Run上右键点新建),键值(在Systray上双击编辑)为"c:\windows\system32\Systray.exe",
如果是win2000系统,则为"c:\winnt\system32\Systray.exe"
这样就可以了 .
2011-04-18
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人