index2.txt

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

105,调用API不能改变Form的中文字体 
我 这 里 有 个 困 扰 了 我 很 久 的 问 题 ， 我 在 VB中 用 下 列 代 码 调 用 API改 变 Form的 字 体 。 发 现 所 设 定 的 字 体 的 其 它 特 性 如 高 度 、 宽 度 等 均 能 起 作 用 ， 只 有 字 体 设 不 上 ， 后 发 现 英 文 字 体 就 没 有 这 个 问 题 。 请 问 如 何 才 能 解 决 这 个 问 题 ？ 
    使 用 的 操 作 系 统 : pwin97 
    使 用 的 编 程 工 具 : vb6.0 
    注 ： 我 的 系 统 里 有 这 种 字 体 ， 且 我 在 win95/98/NT/Pvb6上 均 测 试 过 。 
    **************************************************************** 
    Private Type LOGFONT 
     lfHeight As Long 
     lfWidth As Long 
     lfEscapement As Long 
     lfOrientation As Long 
     lfWeight As Long 
     lfItalic As Byte 
     lfUnderline As Byte 
     lfStrikeOut As Byte 
     lfCharSet As Byte 
     lfOutPrecision As Byte 
     lfClipPrecision As Byte 
     lfQuality As Byte 
     lfPitchAndFamily As Byte 
     lfFaceName As String 
    End Type 
     
    Private Declare Function CreateFontIndirect Lib "gdi32" Alias "CreateFontIndirectA" (lpLogFont As LOGFONT) As Long 
    Private Declare Function SelectObject Lib "gdi32" (ByVal hdc As Long, ByVal hObject As Long) As Long 
    Private Declare Function DeleteObject Lib "gdi32" (ByVal hObject As Long) As Long 
     
    Dim fnt As LOGFONT 
    '前 后 两 句 print语 句 输 出 的 字 体 看 上 去 差 不 多 
    Private Sub Command1_Click() 
     
     Print "中 华 人 民 共 和 国 123abc" 
     fnt.lfCharSet = DEFAULT_CHARSET 
     fnt.lfWidth = 10: fnt.lfHeight = 20 
     fnt.lfFaceName = "楷 体 _GB2312" 
     DeleteObject SelectObject(hdc, CreateFontIndirect(fnt)) 
     Print "中 华 人 民 共 和 国 123abc" '输 出 字 体 并 非 楷 体 
     Debug.Print Font.Name '结 果 仍 为 原 来 默 认 的 MS Sans Serif, :( :( 
     
    End Sub 

回答: 在 声 明 
<END>
106,如何结束用Shell调用的一个DOS程序  
运 行 :Shell "X:\Path\"+"Doscommand.exe",0 '要 隐 藏 DOS窗 。 在 任 务 管 理 器 中 却 出 现 了 一 个 "Winoldap", 再 运 行 一 次 就 多 出 现 一 个 "Winoldap".怎 样 结 束 它 ? 
<END>
107,如何检测其它程序的窗口的状态 
用 vb6.0打 开 一 程 序 后 ， 如 何 编 写 检 测 这 个 程 序 的 窗 口 目 前 是 处 于 最 小 化 还 是 处 于 最 大 化 状 态 ？ 比 如 说 ， 我 打 开 了 书 写 器 ， 我 想 知 道 目 前 书 写 器 的 窗 口 状 态 。 
<END>     
108,在VB里怎样识别当前的显示分辩率和颜色 
在 VB里 怎 么 样 识 别 当 前 的 显 示 分 辩 率 和 颜 色 ？ 
<END>
109,请教如何用API取得机器名 
请 教 如 何 用 API取 得 机 器 名 ？ 
<END>
110,如何在winnt环境下编程获得已经登录的工作站列表 
请 问 如 何 在 winnt环 境 下 用 vb6编 程 获 得 已 经 登 录 的 工 作 站 列 表 。 
<END>     
111,怎样对经调用API函数GlobalAlloc及GlobalLock得到的内存块进行读写操作 
怎 样 在 VB中 对 经 调 用 API函 数 GlobalAlloc及 GlobalLock得 到 的 内 存 块 进 行 读 写 操 作 呢 ？ 
<END>
112,如何关闭其它应用程序的对话框 
我 在 vb中 调 用 其 他 的 应 用 程 序 （ 用 shell 或 winexec), 应 用 程 序 启 动 后 有 一 个 对 话 框 ， 我 如 何 在 我 的 程 序 中 自 动 向 该 对 话 框 发 消 息 ,关 闭 该 对 话 框 。 同 样 ， 我 在 程 序 中 关 闭 该 应 用 程 序 时 ， 也 会 出 现 一 确 认 对 话 框 ， 我 应 如 何 向 该 对 话 框 发 消 息 ， 应 发 啥 消 息 ， 才 能 关 闭 该 对 话 框 ？ 
<END>     
113,如何调用GetGlyphOutline函数 
请 问 如 何 调 用 WINDOWS API (GetGlyphOutline)函 数 ， 最 好 能 给 出 vb实 例 。 
<END>
114,如何在vb6.0中简单安全地使用多线程 
如何在vb6.0中简单安全地使用多线程,有没有ACTIVEX控件可用? VB6.0对于多线程是否有更好的支持? 
<END>     
115,如何填充任意封闭区域 
不 知 如 何 填 充 任 意 封 闭 区 域 ， 好 象 不 是 FILLCOLOR属 性 ， 但 我 又 不 知 是 什 么 ？ 
<END>     
116,是否有可以改变系统时间的API 
是 否 有 可 以 改 变 系 统 时 间 的 API? 
<END>    
117,在VB中如何实现自动启动拨号网络 
在VB中如何通过程序实现自动启动拨号网络，并对不同的号码及其它参数进行设定？ 
<END>
118,如何确定当前Win95中有多少个用户在使用 
请 问 如 何 确 定 当 前 Win95中 有 多 少 个 用 户 在 使 用 （ 就 是 有 多 少 用 户 名 ） ， 不 会 是 查 看 Windows目 录 中 有 多 少 个 PWL文 件 吧 ? 
<END>
119,如何调用WNetGetConnection等API函数 
本 人 在 浏 览 答 案 中 见 到 了
“如何判断工作站是否已连网”的 问 答 ， 但 本 人 对 API函 数 很 不 了 解 ， 因 此 特 再 次 请 问 Win32 API的 WNetGetConnection、 WnetOpenEnum等 到 函 数 具 体 如 何 用 法 ， 它 的 参 数 在 VB内 如 何 设 置 ， 能 有 个 例 子 是 最 好 的 了 ！ 
<END>
120,如何实现重启动Windows的功能 
用API函数 ExitWindowsEx() 可方便地实现关机，重启动计算机的功能，但怎样才能编程实现如PowerExit中重启动Windows的功能，还请指点？ 
<END>
121,如何判断工作站是否已连网 
我 在 编 制 局 域 网 上 的 C/S应 用 程 序 ， 不 知 道 VB 5.0和 VFP 3.0中 有 什 么 函 数 能 够 判 断 工 作 站 是 否 已 连 网 。 是 要 使 用 WIN32 API吗 ？ 肯 请 指 点 。 
<END>
122,程序如何才能识别目前的操作系统环境 
Windows系 列 产 品 如 此 之 多 : 16bits： Windows 3.0/3.1/3.2/3.11、 16及 32bits： Windows 95（ 英 文 版 /GBK/BIG5/日 文 版 /韩 文 版 /...） 、 32bits： Windows NT 3.5/3.51/4.0（ 英 文 版 /中 文 版 /... ） ...所 有 以 上 这 些 版 本 ， 在 写 程 序 时 该 如 何 区 分 ， 即 程 序 如 何 才 能 识 别 目 前 的 操 作 系 统 环 境 ？ 
<END>