VB完美皮肤 换肤演示 破解版SkinH_VB6.dll
VB完美皮肤 换肤演示 破解版SkinH_VB6.dll,使用前将SkinH_VB6.dll拷到系统文件夹下 如:winXP是C:\WINDOWS\system32 www.97tt.org
VB完美皮肤 换肤演示 破解版SkinH_VB6.dll,使用前将SkinH_VB6.dll拷到系统文件夹下 如:winXP是C:\WINDOWS\system32 www.97tt.org
'此代码发布后,可随意改哈,欢迎光临我的网址导航网站 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
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
1. API之网络函数 WNetAddConnection 创建同一个网络资源的永久性连接 WNetAddConnection2 创建同一个网络资源的连接 WNetAddConnection3 创建同一个网络资源的连接 WNetCancelConnection 结束一个网络连接 WNetCancelConnection2 结束一个网络连接 WNetCloseEnum 结束一次枚举操作 WNetConnectionDialog 启动一个标准对话框,以便建立同网络资源的连接 WNetDisconnectDialog 启动一个标准对话框,以便断开同网络资源的连接 WNetEnumResource 枚举网络资源 WNetGetConnection 获取本地或已连接的一个资源的网络名称 WNetGetLastError 获取网络错误的扩展错误信息 WNetGetUniversalName 获取网络中一个文件的远程名称以及/或者UNC(统一命名规范)名称 WNetGetUser 获取一个网络资源用以连接的名字 WNetOpenEnum 启动对网络资源进行枚举的过程
这是网上收集整理的,纯属娱乐,比较好玩 压缩包内有两款Flash钢琴,一个有半音,按数字键那种,可录入琴谱,自动弹奏,一个简单的,附带一堆流行音乐琴谱,简谱翻译器是VB绿色小软件
有时不小心,音量控制图标就没了,这还真是个小麻烦 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" 这样就可以了 .