index1.txt

VB技巧问答10000例 VB技巧问答10000例

    Private Declare Function GetCurrentProcess Lib "kernel32" () As Long 
     
    Private Sub Form_Load() 
     MsgBox (SetThreadPriority(App.ThreadID, THREAD_BASE_PRIORITY_MAX)) 
     MsgBox (SetPriorityClass(GetCurrentProcessId, REALTIME_PRIORITY_CLASS)) 
    End Sub 
     
    根 据 API的 使 用 说 明 ， SetThreadPriority()和 SetPriorityClass()函 数 如 果 成 功 的 化 ， 返 回 值 都 为 非 零 ， 而 程 序 运 行 后 会 看 到 弹 出 两 次 对 话 框 ， 显 示 的 都 是 “ 0” 。 
<END>
24,RegQueryValueEx函数返回二进制值到字符串出错 
我在编辑时用API函数读取注册表的BINARY值时遇到如下问题： 
    我用RegQueryValueEx函数返回二进制值时，如果二进制值中某一位的十六进制代吗小于80时可以正常返回，但若大于80时就会返回00，如注册表中有一BINARY值为64006400, 用字符串变量返回值时为四个字节长(包括终止符)，其ASCII码别为100,0,100,0 而若注册表中的值为 95006400时，所返回的字符串值只有二字节长（包括终止符）每一位的ASCII码为 100,0 (也就是说只返回了 6400 的值而没有返回 9500的值）请问这是何故？ 
<END>
25,在vb下调用的api函数和在vc调用的api函数是否是相同的函数 
win32 api函 数 是 windows提 供 给 应 用 程 序 和 操 作 系 统 的 接 口 ， 在 vb下 调 用 的 api函 数 和 在 vc调 用 的 api函 数 是 否 是 相 同 的 函 数 ? 
<END>    
26,怎样去掉从DLL返回来的字符串后面的无效字符 
你 好 ！ 怎 样 去 掉 从 DLL返 回 来 的 字 符 串 后 面 的 无 效 字 符 ?
<END>
27,怎样通过api函数sendmessage改变标准控件的隐藏属性 
怎 样 通 过 api函 数 sendmessage改 变 标 准 控 件 的 隐 藏 属 性 ？ 我 试 出 改 变 listview风 格 的 参 数 ， 但 怎 么 也 试 不 出 其 他 控 件 的 参 数 （ 如 button， combo） 望 指 教 ！ 
<END>    
28,如何用程序取到注册表中列在右边的所有项 
如 何 用 程 序 取 到 注 册 表 中 列 在 右 边 的 所 有 项 ？ 
<END>    
29,子键（acad：xxxxxxxx）在不同的计算机上都不一样怎么处理 
最 近 编 一 个 安 装 程 序 ,要 在 注 册 表 中 写 入 信 息 。 具 体 是 在 hkey_user\.deafault\software\autodesk\autocad\r14.0\acad:xxxxxxxx 下 新 建 一 个 子 键 ， 写 入 相 同 信 息 。 可 是 它 的 上 一 级 子 键 （ acad:xxxxxxxx） 在 不 同 的 计 算 机 上 都 不 一 样 ,为 了 使 安 装 程 序 在 每 台 机 器 上 顺 利 运 行 ,应 该 怎 么 办 ?盼 答 复 多 谢 ! 
<END>
30,调用SHFileOperation API函数时报错实时错误453
最 近 帮 朋 友 编 一 个 小 程 序 ， 在 使 用 SHFileOperation API函 数 复 制 整 个 目 录 时 ， 程 序 运 行 却 报 错 ： 
     实 时 错 误 ‘ 453’ 
     找 不 到 DLL入 口 点 SHFileOperationA in shell32.dll 
    函 数 声 明 是 通 过 API阅 览 器 添 加 的 ， 应 该 没 有 问 题 。 不 知 问 题 在 哪 里 ？ 
    以 下 是 源 程 序 ： 
    Public Declare Function SHFileOperation Lib "shell32.dll" Alias " SHFileOperationA" (lpFileOp As SHFILEOPSTRUCT) As Long 
     
    Public Type SHFILEOPSTRUCT 
     hwnd As Long 
     wFunc As Long 
     pFrom As String 
     pTo As String 
     fFlags As Integer 
     fAnyOperationsAborted As Long 
     hNameMappings As Long 
     lpszProgressTitle As String ' only used if FOF_SIMPLEPROGRESS 
    End Type 
    '以 上 函 数 声 明 及 自 定 义 类 型 在 标 准 模 块 中 
     
    Private Sub Form_Load() 
    Dim shfileop As SHFILEOPSTRUCT 
    shfileop.wFunc = FO_COPY 
    shfileop.pFrom = "c:\1075" 
    shfileop.pTo = "c:\1234" 
    shfileop.fFlags = FOF_ALLOWUNDO 
    SHFileOperation shfileop 
    End Sub 
    '以 上 为 程 序 
<END>    
31,VB调用CreateThread创建线程失败 
我 的 问 题 是 关 于 vb中 多 线 程 的 。 我 用 api函 数 createthread创 建 线 程 。 具 体 的 方 法 如 下 : 
    1.先 添 加 两 个 标 准 窗 体 form1,form2.form3 
    2.form1中 添 加 command1,command2按 纽 . 
    3.command1中 代 码 是 : 
     Dim lnull As Long 
     Dim threadidone As Long 
     Dim threadidtwo As Long 
     Dim threadhwndone As Long 
     Dim threadhwndtwo As Long 
     lnull = 0 
     vbbl = True 
     threadhwndone = CreateThread(lnull, 0, AddressOf Module1.one, _ 
     lnull, 0, threadidone) 
     threadhwndtwo = CreateThread(lnull, 0, AddressOf Module1.two, _ 
     lnull, 0, threadidtwo) 
     If threadhwndone = 0 Or threadhwndtwo = 0 Then MsgBox "can't _ 
     create thread" 4.command2中 代 码 是 : 
     form3.show 
     5.再 向 工 程 中 添 加 一 标 准 模 块 。 代 码 如 下 : 
     Public Declare Function CreateThread Lib "kernel32" _ 
     (lpThreadAttributes As Long, ByVal dwStackSize As Long, _ 
     lpStartAddress As Long, lpParameter As Any, ByVal _ 
     dwCreationFlags As Long, lpThreadId As Long) As Long 
     Public vbbl As Boolean 
     Public Sub one() 
     Dim j As Integer 
     While vbbl = True 
     While j < 10 
     form1.Text1.BackColor = vbBlue 
     j = j + 1 
     Wend 
     j = 1 
     form1.Text1.BackColor = vbRed 
     Wend 
     End Sub 
     Public Sub two() 
     Dim j As Integer 
     form2.Show 
     While vbbl = True 
     form2.Text1 = Rnd(10) * 100 
     Wend 
     End Sub 
    6.使 我 不 明 白 的 是 程 序 中 过 程 one,two并 没 有 执 行 ,createthread返 回 的 句 柄 为 0。 ?希 望 能 得 到 您 的 指 点 。 我 真 心 希 望 您 在 百 忙 中 给 我 来 信 指 点 迷 津 。 
<END>
32,VB API中的函数不全，怎么办 
vb api浏 览 其 中 的 函 数 是 不 全 的 。 怎 么 知 道 所 有 函 数 ？ 
<END>    
33,Vfp中调用API函数与VB中的有什么不同 
请 教 Vfp中 调 用 API函 数 与 VB中 的 有 什 么 不 同 ? 
<END>    
34,能否编程实现NT系统的关机并切断电源 
Hi Is there any way to Power Off the NT 4.0 system by program 
<END>    
35,如何使程序在桌面出现前启动 
我 编 的 一 个 程 序 想 随 windows98系 统 一 起 启 动 而 不 是 要 等 到 桌 面 出 现 才 最 后 启 动 。 请 问 如 何 做 ？ 
<END>
36,如何利用FindWindow()函数查找程序 
假设我想运行的外部程序是ABC.EXE, 在VB中应如何利用 FindWindow() 函数查找该程序是否仍在运行?望能给出具体的解答。 
<END>
37,如何找出计算机的机主名及机主的单位 
我 想 用 vb代 码 找 出 计 算 机 的 机 主 名 及 机 主 的 单 位 ， 怎 么 编 写 代 码 ？ 
<END>    
38,VB如何实现自绘控件 
虽 然 说 vb对 物 主 绘 图 这 一 方 面 很 难 做 到 ， 但 事 实 上 是 有 可 能 的 ， 难 就 难 在 如 何 使 系 统 能 够 自 动 产 生 drawitem的 消 息 ， 菜 单 可 能 还 好 办 ， 其 它 的 控 件 就 不 知 道 如 何 下 手 了 ， 我 试 过 用 getwindowlong和 setwindowlong去 修 改 combutton的 bs_style， 在 subclass中 不 能 截 取 到 drawitem的 消 息 ， 而 且 控 件 同 时 也 变 的 有 点 不 正 常 ， 请 问 各 位 大 虾 ， 有 没 有 什 么 方 法 可 以 实 现 ownerdraw。 
<END>    
39,怎样得到外部应用程序所弹出窗口的标题 
怎 样 使 用 VB得 到 一 个 外 部 应 用 程 序 所 弹 出 窗 口 的 标 题 和 静 态 文 本 内 容 ？ 
<END>    
40,如何知道另外一个程序的当前状态 
我 在 程 序 中 想 知 道 另 外 一 个 程 序 的 当 前 状 态 ， 即 是 否 在 运 行 。 
    因 此 我 使 用 了 API函 数 ， GETMODULEHANDLE（ ） ， 此 API函 数 有 一 个 参 数 ， 是 要 检 查 的 模 块 名 ， 但 是 我 试 验 多 次 ， 都 不 能 正 确 获 得 状 态 。 如 ： 我 想 知 道 NOTEPAD是 否 在 运 行 ， 我 调 用 了 
    dim RetValue as Integer 
    RetValue=getmodulehandle("NOTEPAD.EXE") 
    if RetValue=0 then 
     msgbox "No Run" 
    else 
     msgbox "Run" 
    end if 
    但 是 ， 无 论 我 运 行 NOTEPAD与 否 ， 总 是 返 回 0， 既 未 运 行 。 我 想 在 想 知 道 如 何 正 确 使 用 此 API， 它 的 参 数 应 该 怎 样 填 写 ， 望 指 教 ， 谢 谢 ！ 
<END>    
41,如何判断显示模式是大字体还是小字体 
怎 样 通 过 vb6.0判 断 是 大 字 体 还 是 小 字 体 ， 能 不 能 重 新 启 动 计 算 机 就 更 改 ? 
<END>
42,RegSetValueEx写的结果为什么不对 
我 在 用 RegSetValueEx 函 数 时 出 现 问 题 ： 
    Public Declare Function RegSetValueEx Lib "advapi32.dll" Alias "RegSetValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal Reserved As Long, ByVal dwType As Long, lpData As Any, ByVal cbData As Long) As Long 
     
    Dim lngValue As Long 
    lngValue = 1 
    RegSetValueEx HKEY_CURRENT_USER, "Test", 0, REG_DWORD, lngValue, 4 
    然 后 运 行 程 序 ， 为 什 么 得 到 的 结 果 不 是 1而 是 0x6500c90f ?? 我 试 将 1 改 为 "1" 但 结 果 仍 然 不 是 1， 请 问 如 何 才 能 用 此 函 数 写 任 意 的 DWORD 值 呢 ？ 
<END>
43,GetPriorityClipboardFormat 函数怎么用 
请 问 GetOpenClipboardWindow () 和 GetPriorityClipboardFormat 两 个 函 数 怎 么 用 ？ 
<END>
44,RegEnumKeyEx函数返回值为 234 
我 在 用 函 数 RegEnumKeyEx 时 遇 到 问 题 ， 程 序 如 下 ： 
     Dim hKey As Long 
     Dim strKeyName As String 
     Dim lngKeySize As Long 
     Dim strClassName As String 
     Dim lngClassSize 
     Dim KeyTime As FILETIME 
     Dim rc As Long 
     strKeyName = Space(1024) 
     strClassName = Space(1024) 
     rc = RegEnumKeyEx(HKEY_CURRENT_USER, 0, strKeyName, lngKeySize, 0, strClassName, lngClassSize, KeyTime) 
    而 运 行 到 此 处 后 rc 的 值 为 234， 我 查 了 错 误 代 码 ， 234表 示 ： “ 有 更 多 可 用 的 数 据 。 ” 而 strKeyName 为 1024 个 空 格 ， 其 它 变 量 均 为 0， 请 问 这 是 何 故 ？ 如 何 才 能 让 strKeyName 返 回 的 是 子 键 的 键 名 ？ 
<END>    
45,使用API的时候怎样才能调用返回的函数地址
当 我 使 用 API的 时 候 ,怎 样 才 能 调 用 返 回 的 函 数 地 址 ?如 :GetProcAddress 
<END>    
46,怎样终止某一程序的运行 
怎 样 终 止 某 一 程 序 的 运 行 ? 
<END>
47,用VB创建快捷方式 
我想用vb6.0在启动和桌面上创建快捷方式, 不知如何实现。还望各位高手不吝赐教。 
<END>     
48,声明API函数时，出现编译错误：用户定义类型没有被定义 
在 声 明 creatprocess函 数 时 ， 出 现 编 译 错 误 ， 提 示 为 ： 用 户 定 义 类 型 没 有 被 定 义 。 请 问 是 什 么 原 因 ？ 本 人 声 明 形 式 如 下 ： 
    Private Declare Function CreateProcess Lib "kernel32" Alias "CreateProcessA" _ 
    (ByVal lpApplicationName As String, ByVal lpCommandLine As String, _ 
    lpProcessAttributes As SECURITY_ATTRIBUTES, lpThreadAttributes As _ 
    SECURITY_ATTRIBUTES, ByVal bInheritHandles As Long, ByVal dwCreationFlags As _ 
    Long, lpEnvironment As Any, ByVal lpCurrentDriectory As String, lpStartupInfo As _ 
    STARTUPINFO, lpProcessInformation As PROCESS_INFORMATION) As Long 
    在 回 复 的 同 时 能 否 提 供 一 些 具 体 参 数 的 使 用 ， 谢 谢 ！ 
<END>
49,如何在执行EXWINDOWSEX()之前，断开一切网络连接 
通过局域网相连的两台计算机，分别称本地机和远端机，通过由本地机发送命令，使远端机执行自动关机（EXWINDOWSEX()）功能。当本地机没有访问远端机的目录时（如通过远端机的目录共享方式），远端机可以执行自动关机。但当以共享方式访问远端机时，远端机便记忆有客户连接，使在执行EXWINDOWSEX()时，弹出一窗口说有一客户连机，从而不能使远端机自动关机，而必须去远端关机。如何在执行EXWINDOWSEX()之前，断开一切网络连接，或向这个弹出窗口发送确认信息，使得远端机执行自动关机。 谢谢！ 
<END>
50,如何得到对话框控件中的确定和取消按钮被按下的信息 
如 何 得 到 对 话 框 控 件 (common dialog)中 的 "确 定 " 和 "取 消 "按 钮 被 按 下 的 信 息 并 做 出 选 择 判 断 ? 
<END>
51,如何在vb6中实现一个不规则外形的的窗口 
请 问 如 何 在 vb6中 实 现 一 个 扇 形 的 窗 口 ?我 只 找 到 设 置 多 边 形 、 圆 形 等 区 域 的 函 数 ， 没 有 找 到 设 置 扇 形 区 域 的 函 数 ， 另 外 如 果 想 实 现 一 个 不 规 则 的 外 形 的 窗 体 （ 类 似 于 手 画 的 奇 异 形 状 ） ， 如 何 设 置 区 域 ？ 
<END>     
52,TEXTOUT 函数如何控制字体 
API 的 TEXTOUT 函 数 如 何 控 制 字 体 ？ 谢 谢 ！ 
<END>
53,可否利用 API 改变预设列印机的设置 
可 否 利 用 API 改 变 预 设 列 印 机 的 内 容 ,如 纸 张 大 小 ,方 向 等 ？ 
<END>
54,如何用vb6对注册表二进制值键值进行读写 
我 在 用 vb6调 用 API函 数 对 注 册 表 进 行 读 写 时 不 知 如 何 建 立 二 进 制 值 键 值 ， 只 能 建 立 串 值 。 不 知 哪 位 朋 友 知 道 请 告 诉 我 ， 我 将 十 分 感 谢 ！ ！ ！ 
<END>
55,如何将选中的文本全部变成全角 
如 何 将 选 中 的 文 本 全 部 变 成 全 角 ？ 
<END>
56,如何重新启动本机、关机 
我是一新手,用VC++编写程序,请问如何重新启动本机?如何关机? 
<END>     
57,如何在程序中禁止屏幕保护程序 
如 何 在 程 序 中 禁 止 屏 幕 保 护 程 序 ？