index1.txt

以电子书的形式收集了VB一些常见问题解决方法,可以很方便的查找自己需要解决的问题.对一些VB初学者很用.

1,如何用vb编制半透明窗体 
如何用vb编制半透明窗体？ 要用到win32 API 的什么函数？不用bitblt函数能实现吗？ 
<END>    
2,如何监视Windows下运行了哪些程序 
哪个API函数能监视Windows下运行了哪些程序?或者, 若编程实现应如何实现?(vb6.0) 
<END>     
3,如何可以修改Chm文件的ICON 
Chm文件的原来ICON都是一个问号，现在我想替换成我自己的ICON，不知道如何可以做到？
<END>
4,如何制作上下文相关的HTML帮助 
请问：在语句 hwndHelp = HtmlHelp(hWnd, "myfile.chm", HH_HELP_CONTEXT, ContextID) 中，如何在 Html Help 文件中设置对应的 ContextID 。我使用的是Microsoft HTML Help Workshop 。 
<END>     
5,如何调用PropertySheet函数 
以下是我翻译VC++ 的声明不知道对不对。（我想写一个Tabstrip可是调用以下函数后，没有效果，请帮我看看以下代码好吗！谢谢先了！） 
    Private Declare Function PropertySheet Lib "Comctl32" Alias "PropertySheetA" (lppsph As PROPSHEETHEADER) As Long 
    Private Declare Function CreatePropertySheetPage Lib "Comctl32" Alias "CreatePropertySheetPageA" (lppsp As PROPSHEETPAGE) As Long 
    Private Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long 
     
    Private Type INITCOMMONCONTROLSEXS 
     dwSize As Long 
     dwICC As Long 
    End Type 
     
    Private Declare Function INITCOMMONCONTROLSEX Lib "Comctl32" Alias "InitCommonControlsEx" (lpInitCtrls As INITCOMMONCONTROLSEXS) As Long 
     
     
    Private Type PROPSHEETPAGE 
     dwSize As Long 
     dwFlags As Long 
     hInstance As Long 
     
     pszTemplate As String 
     'pResource as long 
     
     'hIcon as long 
     pszIcon As String 
     
     pszTitle As String 
     pfnDlgProc As Long 
     lParam As Long 
     pfnCallback As Long 
     pcRefParent As Long 
     
     pszHeaderTitle As String 
     pszHeaderSubTitle As String 
    End Type 
     
    Private Type PROPSHEETHEADER 
     dwSize As Long 
     dwFlags As Long 
     hwndParent As Long 
     hInstance As Long 
     'hIcon as long 
     pszIcon As String 
     pszCaption As String 
     nPages As Long 
     '----------------------- 
     nStartPage As Long 
     pStartPage As String 
     '----------------------- 
     '----------------------- 
     ppsp As PROPSHEETPAGE 
     phpage As Long 
     '----------------------- 
     pfnCallback As Long 
     hbmWatermark As Long 
     pszbmWatermark As String 
     hplWatermark As Long 
     '----------------------- 
     hbmHeader As Long 
     pszbmHeader As String 
     '----------------------- 
    End Type 
    Private Const SW_SHOW = 5 
     
    Private Sub Form_Load() 
    Dim lps As INITCOMMONCONTROLSEXS 
    lps.dwICC = ICC_PAGESCROLLER_CLASS 
    lps.dwSize = len(lps) 
     
    Call INITCOMMONCONTROLSEX(lps) 
     
     Dim psp(1) As PROPSHEETPAGE 
     Dim psh As PROPSHEETHEADER 
     
     psp(0).dwSize = Len(psp(0)) 
     psp(0).dwFlags = PSP_DLGINDIRECT Or PSP_HASHELP 
     psp(0).hInstance = App.hInstance 
     psp(0).lParam = 0 
     psp(0).pfnCallback = vbNull 
     
     psp(1).dwSize = Len(psp(1)) 
     psp(1).dwFlags = PSP_DLGINDIRECT Or PSP_HASHELP 
     psp(1).hInstance = App.hInstance 
     psp(1).lParam = 0 
     psp(1).pfnCallback = vbNull 
     
     Dim V&, S& 
     V& = CreatePropertySheetPage(psp(0)) 
     
     psh.dwSize = Len(psh) 
     psh.dwFlags = PSH_USEPSTARTPAGE Or PSH_PROPSHEETPAGE 
     psh.hwndParent = Me.hwnd 
     psh.hInstance = App.hInstance 
     'psh.nPages = 1 
     psh.pStartPage = 0 
     psh.pszCaption = "sv" 
     psh.phpage = V& 
     psh.pfnCallback = vbNull 
     
     ShowWindow V&, 5 
     S& = PropertySheet(psh) 
     
     MsgBox V& & " " & S& 
     '错误 S 为-1 
    End Sub 
<END>
6,如何利用vb实现操作系统或者某一应用程序的自动关闭 
如何利用vb实现操作系统或者某一应用程序的自动关闭？ 
<END>
7,使用CreateThread时候第四个参数怎么传 
请问使用CreateThread时候第四个参数怎么传？就是要放入线程的函数的参数,只能传一个,因为不能用结构的引用传,请给出例子。 
<END>    
8,有没有什么办法能够知道正在运行程序的开始时间和结束的时间 
我用的是VB6 我想知道有没有什么办法能够知道正在运行程序的开始时间和结束的时间。比如：扫雷游戏，或者是InternetExplorer 的运行的开始时间和结束时间。
<END>
9,SystemParametersInfo的参数SetMouseSpeed的值是多少 
API函数SystemParametersInfo的参数SetMouseSpeed和GetMouseSpeed的值是多少？ 
<END>
10,API的意义是什么 
编程中经常碰到API。请问API的意义是什么？如何知道编程中经常用到的窗口句柄、窗口类名等？ 
<END>
11,如何调用GetOpenFileName函数 
请教GetOpenFileName、 GetSaveFileName等函数的详细用法，我不想使用ComDlg32.ocx控件，因此希望使用这些函数，但不会用，请专家给出源码。谢谢!另外，选择颜色对话框用什么函数？也请给出源码。
<END>
12,如何使被调用的程序的窗口从开始运行即隐藏起来 
在一个程序(A)中运行另外一个程序(B)，如何使B程序的窗口从开始运行即隐藏起来。我用shell，但只能做到使窗口最小化。 
<END>    
13,如何通过编程添加环境变量 
本 问 题 涉 及 的 操 作 系 统 windows2000 
    本 问 题 涉 及 的 编 程 工 具 vb6.0 
    请 问 如 何 通 过 编 程 添 加 环 境 变 量 ？ 
<END>    
14,如何捕捉这个Alt+tab按键的事件 
我 在 做 一 个 全 屏 的 图 片 浏 览 程 序 ， 当 在 全 屏 的 时 候 按 了 Alt+Tab切 换 到 其 他 程 序 时 ， 那 个 全 屏 的 form还 在 后 面 ， 我 想 在 转 换 到 其 他 程 序 时 这 个 窗 口 最 小 化 ， 请 问 该 如 何 捕 捉 这 个 Alt+tab按 键 的 事 件 呢 ?或 者 有 什 么 其 他 实 现 方 法 呢 ? 
<END>    
15,屏幕坐标系和窗口客户区坐标系的区别 
本 人 对 于 下 面 代 码 中 的 一 些 语 句 不 太 理 解 ， 特 向 各 位 高 手 请 教 。 
    代 码 如 下 ： 
    Public Sub ClipTo(ToCtl As Object) 
     On Error Resume Next 
     Dim tmprect As RECT 
     Dim pt As POINTAPI 
     With ToCtl 
     If TypeOf ToCtl Is Form Then 
     tmprect.Left = (.Left / Screen.TwipsPerPixelX) 
     tmprect.Right = (.Right / Screen.TwipsPerPixelY) 
     tmprect.Top = (.Left + .Width) / Screen.TwipsPerPixelX 
     tmprect.Bottom = (.Right + .Height) / Screen.TwipsPerPixelY 
     ElseIf TypeOf ToCtl Is Screen Then 
     tmprect.Left = 0 
     tmprect.Right = 0 
     tmprect.Top = (.Width / Screen.TwipsPerPixelX) 
     tmprect.Bottom = (.Height / Screen.TwipsPerPixelY) 
     Else 
     pt.X = 0 
     pt.Y = 0 
     Call ClientToScreen(.hwnd, pt) 
     tmprect.Left = pt.X 
     tmprect.Top = pt.Y 
     pt.X = (.Width / Screen.TwipsPerPixelY) 
     pt.Y = (.Height / Screen.TwipsPerPixelX) 
     Call ClientToScreen(.hwnd, pt) 
     tmprect.Bottom = pt.Y 
     tmprect.Right = pt.X 
     End If 
     Call ClipCursor(tmprect) 
     End With 
    1、 我 COMMAND按 钮 名 来 调 用 该 语 句 时 ， 对 于 代 码 中 的 pt.X = 0， pt.Y = 0不 太 理 解 ， 我 认 为 应 该 设 为 控 件 的 左 上 角 的 坐 标 值 ， 而 不 是 零 ， 因 为 需 要 的 是 把 鼠 标 锁 定 在 该 按 钮 的 矩 形 区 域 内 。 
    2、 本 人 对 于 屏 幕 坐 标 系 和 窗 口 客 户 区 坐 标 系 的 区 别 不 甚 清 楚 ， 不 知 何 时 需 要 进 行 两 者 的 转 换 ， 特 请 教 
    3、 是 不 是 API函 数 需 要 的 都 是 像 素 值 ， 有 哪 些 方 法 可 以 实 现 度 量 单 位 的 转 换 （ 由 缺 省 值 缇 变 为 像 素 ） 。 
<END>
16,何处能查到在调用WIN32的API函数时需要的常量的值 
在 调 用 WIN32的 API函 数 时 要 用 到 许 多 常 量 （ 如 ： HKEY_CURRENT_USER） ， 在 何 处 能 查 到 这 些 常 量 的 值 。 
<END>
17,对于申明为Any型的变量，如果赋予0&的实参值是什么意思 
请 问 在 VB中 在 进 行 API函 数 调 用 时 ， 对 于 申 明 为 Any型 的 变 量 ， 如 果 赋 予 0&的 实 参 值 是 什 么 意 思 ， 另 外 "&"表 示 什 么 意 思 ？ 
<END>
18,应当使用什么方法方便的调用API 
我 在 使 用 VB时 需 要 调 用 API函 数 ， 但 是 通 过 “ 外 接 程 序 ” 下 面 的 “ 外 接 程 序 管 理 器 ” ， 却 没 有 发 现 “ Add-In” 。 但 我 从 书 上 看 到 应 该 就 在 这 里 可 以 加 入 “ API Viewer” 。 不 过 我 的 VB在 安 装 了 Pack4之 后 好 像 与 以 前 不 一 样 了 ， 许 多 该 有 的 项 目 也 找 不 到 了 。 由 于 API变 元 太 长 ， 实 在 不 想 手 工 输 入 ， 请 问 专 家 ， 我 应 当 使 用 什 么 方 法 方 便 的 调 用 API？ 
<END>
19,如何在VB程序中确定Win 95的语种 
如 何 在 VB 4.0程 序 中 确 定 Win 95的 语 种 ？ 能 否 通 过 某 些 API获 得 ？ 
<END>
20,如何使用vb6.0编写程序切换显示器的分辨率 
我想使用vb6.0编写一个这样的程序，该程序不带窗体，运行后可直接将显示器的分辨率由640*480改为800*600，或者由800*600改为640*480。应该怎么做？
<END>
21,怎样才能在win9x上使一个线程呆死时别的线程也同时呆死 
在 win95/win98系 统 中 ， 一 个 进 程 中 有 多 个 线 程 同 时 互 不 干 扰 的 工 作 。 当 某 个 线 程 出 错 导 致 系 统 报 错 时 ， 其 它 线 程 仍 在 工 作 ， 而 在 winnt平 台 上 ， 应 当 是 一 个 线 程 出 错 ， 其 它 线 程 都 无 法 继 续 运 行 ， 即 一 死 全 死 。 如 何 才 能 使 win95/98平 台 上 实 现 象 nt平 台 上 一 样 的 功 能 ？ 就 是 说 怎 样 才 能 在 win9x上 使 一 个 线 程 呆 死 时 ， 别 的 线 程 也 同 时 呆 死 ？ 不 论 是 用 什 么 方 法 ， 包 括 系 统 配 置 等 等 ， 只 要 实 现 这 个 功 能 就 可 以 。 
<END>
22,怎样在vb中载入某种字体文件 
怎 样 在 vb中 载 入 某 种 字 体 文 件 ， 并 使 用 新 载 入 的 字 体 ？ 包 括 true type字 体 。 
<END>    
23,为什么设置线程与进程的优先级总是不成功 
我 想 在 VB中 通 过 Windows的 API函 数 来 设 置 线 程 与 进 程 的 优 先 级 ， API函 数 的 使 用 方 法 都 是 很 简 单 的 ， 可 是 调 用 的 结 果 总 是 不 成 功 ， 不 知 道 为 什 么 。 程 序 如 下 ： （ 打 开 VB， 在 默 认 的 Form1中 插 入 如 下 代 码 ： ） 
    Option Explicit 
     
    Private Declare Function SetThreadPriority Lib "kernel32" (ByVal hThread As Long, ByVal nPriority As Long) As Long 
    Private Const THREAD_BASE_PRIORITY_MAX = 2 
    Private Declare Function SetPriorityClass Lib "kernel32" (ByVal hProcess As Long, ByVal dwPriorityClass As Long) As Long 
    Private Const REALTIME_PRIORITY_CLASS = &H100 
    Private Declare Function GetCurrentThreadId Lib "kernel32" () As Long 
    Private Declare Function GetCurrentProcessId Lib "kernel32" () As Long