vb shell 应用程序
就这么一个函数就解决了那位仁兄3天多的工作
唉~！真被一个函数玩死了
这里顺便帖出来吧
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Microsoft.VisualBasic.Shell("\windows\explorer.exe", AppWinStyle.NormalFocus)
End Sub
End Class
注：这个应该在.net3.5上面跑的,.net2.0似乎跑不起来
如果建立.net2.0工程,跑起来会报如下错误。
未处理的“System.IO.FileNotFoundException”类型的异常出现在 Microsoft.VisualBasic.dll 中。
其他信息: File not found.
本文来自CSDN博客，转载请标明出处：http://blog.csdn.net/lan120576664/archive/2009/12/15/5010594.aspx
相关文档：
下面是我所掌握的使用ADO对数据库操做的一些常用方法，主要是提供给初学者做为参考，有不对的地方请指正。如有补充不胜荣幸
准备工做
========
来源：www.va1314.com/bc
Dim conn As New ADODB.Connection '创建一个 Connection 实例，在这里使用New等于将Dim和Set合并为一段代码执行
Dim rs As ......
VB显示透明FLASH效果
演示效果：
代码如下：
公共声明区域
Option Explicit
Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long
Private Declare Function SetWindowLong Lib "user32" Alias "SetW ......
作者: 佚名, 出处:IT专家网, 责任编辑: 谢妍妍,
2010-04-23 11:20
本文介绍VB对程序运行的监控。
转眼间，本系列文章已经写到了第六个，今天写点什么呢?
还是得写，看似VB做不到的事情，那么今天起就写写VB对操作系统的控制吧。
首先，说一说，VB对于被调用后的程序的监控方法。
原型函数简 ......
添加2个text，一个command，一个 WebBrowser
Dim vDoc, vTag
Dim i As Integer
Private Sub Command1_Click()
Set vDoc = WebBrowser1.Document
For i = 0 To vDoc.All.length - 1
If UCase(vDoc.All(i).tagName) = "INPUT" Then
Set vTag = vDoc.All(i)
If vTag.Type = "text" Then
Select Case vTag.Nam ......
程序隐形的原理
对于一个隐形程序而言，最基本的要求是：
1. 不在桌面出现界面；
2. 不在任务栏出现图标；
3. 程序名从任务管理器名单中消失。
Public Declare Function GetCurrentProcessId Lib “kernel32” () As Long
’获得当前进程ID函数的声明
Public Declare Functio ......
