• VB完美皮肤 换肤演示 破解版SkinH_VB6.dll

    VB完美皮肤 换肤演示 破解版SkinH_VB6.dll,使用前将SkinH_VB6.dll拷到系统文件夹下 如:winXP是C:\WINDOWS\system32 www.97tt.org

    5
    518
    331KB
    2011-12-22
    50
  • VB托盘程序演示,将程序图标放入任务栏 显示任务栏菜单

    VB托盘程序演示,可将程序图标放入任务栏 单击可显示任务栏菜单

    0
    104
    8KB
    2011-12-22
    9
  • VB自动调整窗口 控件按比例缩放代码

    VB程序窗口调整 控件按比例缩放代码,非常有用,让程序最大化后不那么难看了

    4
    1284
    2KB
    2011-12-22
    8
  • 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

    5
    1473
    30KB
    2011-08-10
    50
  • 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

    5
    200
    272KB
    2011-06-05
    31
  • Windows+API函数大全

    1. API之网络函数 WNetAddConnection 创建同一个网络资源的永久性连接 WNetAddConnection2 创建同一个网络资源的连接 WNetAddConnection3 创建同一个网络资源的连接 WNetCancelConnection 结束一个网络连接 WNetCancelConnection2 结束一个网络连接 WNetCloseEnum 结束一次枚举操作 WNetConnectionDialog 启动一个标准对话框,以便建立同网络资源的连接 WNetDisconnectDialog 启动一个标准对话框,以便断开同网络资源的连接 WNetEnumResource 枚举网络资源 WNetGetConnection 获取本地或已连接的一个资源的网络名称 WNetGetLastError 获取网络错误的扩展错误信息 WNetGetUniversalName 获取网络中一个文件的远程名称以及/或者UNC(统一命名规范)名称 WNetGetUser 获取一个网络资源用以连接的名字 WNetOpenEnum 启动对网络资源进行枚举的过程

    3
    74
    27KB
    2011-06-05
    15
  • flash键盘钢琴 flash半音键盘钢琴 琴谱 简谱翻译器

    这是网上收集整理的,纯属娱乐,比较好玩 压缩包内有两款Flash钢琴,一个有半音,按数字键那种,可录入琴谱,自动弹奏,一个简单的,附带一堆流行音乐琴谱,简谱翻译器是VB绿色小软件

    5
    651
    710KB
    2011-04-18
    32
  • 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" 这样就可以了 .

    5
    222
    136KB
    2011-04-18
    9
  • asp绿色服务器 htm编辑器

    完全可替代IIS htm编辑器小巧实用也可把要编辑的老网页拖进工作区,开始编辑...

    3
    105
    334KB
    2011-04-16
    10
  • 阅读者勋章

    授予在CSDN APP累计阅读博文达到3天的你,是你的坚持与努力,使你超越了昨天的自己。
关注 私信
上传资源赚积分or赚钱