index1.txt

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

     
     ErrHandler: 
     Exit Sub 
     
     End Sub 
     
     Private Sub Command2_Click() 
     
     Picture1.Cls 
     MyIcon = ExtractIcon(App.hInstance, CommonDialog1.filename, 0) 
     Call DrawIcon(Picture1.hdc, 10, 10, MyIcon) 
     Picture1.Refresh 
     Call DestroyIcon(MyIcon) 
     Label6.Caption = 1 
     
     If IconCount > 1 Then 
     VScroll1.Enabled = True 
     VScroll1.Min = 0 
     VScroll1.Max = IconCount - 1 
     End If 
     
     Command2.Enabled = False 
     
     End Sub 
     
     Private Sub Form_Load() 
     
     Dim SysDir_Size As Long 
     SysDir = Space(36) '如 果 你 的 系 统 目 录 名 长 度 大 于 36， 请 设 置 成 正 确 的 长 度 
     SysDir_Size = GetSystemDirectory(SysDir, 35) 
     SysDir = Left(SysDir, SysDir_Size) 
     
     Command2.Enabled = False 
     Label4.Caption = "无 " 
     Label5.Caption = "无 " 
     Label6.Caption = "无 " 
     Picture1.AutoRedraw = True 
     Picture1.Cls 
     VScroll1.TabStop = False 
     VScroll1.Enabled = False 
     
     End Sub 
     
     Private Sub VScroll1_Change() 
     
     Picture1.Cls 
     MyIcon = ExtractIcon(App.hInstance, CommonDialog1.filename, VScroll1.Value) 
     Call DrawIcon(Picture1.hdc, 10, 10, MyIcon) 
     Picture1.Refresh 
     Label6.Caption = VScroll1.Value + 1 
     Call DestroyIcon(MyIcon) 
     End Sub 
    问 题 : 
    这 是 一 个 提 取 文 件 图 标 的 程 序 。 
    1、 Command1_Click()里 有 一 句 On Error GoTo ErrHandler不 懂 。 Error是 什 么 地 方 来 的 ？ 
    2、 WINDOWS下 的 图 标 原 理 是 什 么 ？ 哪 里 有 文 章 ？ 
<END>
35,请问hwnd和hdc有何分别
请 问 hwnd和 hdc有 何 分 别 ？ 如 何 用 findwindowex()获 得 commandbutton的 hdc?非 常 感 谢 。 
<END>     
36,API定义中的&H是什么含义
现 在 我 看 到 一 些 用 API函 数 做 的 例 程 ， 其 中 有 一 个 语 名 PUBLIC CONST LVM_FIRST=&H1000 ， 该 语 句 中 &H1000代 表 的 是 什 么 含 义 ， 从 那 里 可 以 找 到 介 绍 该 词 典 的 书 ? 
<END>
37,线程与进程有什么区别
线 程 与 进 程 的 含 义 是 什 么 ？ 有 什 么 区 别 ？ 
<END>
38,到底脚本是什么意思
常 听 说 脚 本 语 言 ， 到 底 脚 本 是 什 么 意 思 ？ 
<END>
39,DAO与ODBC有什么区别
请 问 ， DAO（ 数 据 库 对 象 ） 与 ODBC（ 开 放 式 数 据 库 接 口 ） 有 什 么 区 别 ？ 应 用 起 来 有 什 么 不 同 ？ 
<END>
40,数据结构和算法教程是否有用
近 来 ， 看 了 四 级 的 数 据 结 构 和 算 法 教 程 ， 感 觉 不 到 对 编 程 有 什 么 作 用 ， 可 能 是 我 没 看 懂 。 请 教 你 的 看 法 。 
<END>
41,请问微软知识库的网址是什么以及如何从上面下载文章
请 问 微 软 知 识 库 的 网 址 是 什 么 ？ 以 及 如 何 从 上 面 下 载 文 章 ？ 
<END>
42,如何处理二进制
我 想 ， WinZip加 密 时 是 先 要 打 开 该 被 加 密 文 件 存 放 到 一 个 变 量 或 控 件 中 去 ， 然 后 再 对 其 加 密 保 存 的 。 既 然 WINZIP能 以 某 种 格 式 准 确 无 误 地 打 开 文 件 ， 为 什 么 我 却 不 能 把 二 进 制 文 件 (如 EXE， BMP)文 件 准 确 地 打 开 在 RICHTEXTBOX中 ？ 我 在 用 LOADFILE以 TEXT格 式 打 开 并 保 存 一 个 真 彩 位 图 文 件 时 ， 该 文 件 虽 能 被 打 开 显 示 ， 但 颜 色 信 息 丢 失 得 厉 害 。 打 开 并 保 存 一 个 可 执 行 文 件 时 连 文 件 的 图 标 信 息 也 没 了 ， 一 双 击 就 说 内 存 不 够 。 
    记 得 WORD97也 是 能 做 到 准 确 地 打 开 /保 存 一 个 二 进 制 文 件 的 ， 请 问 我 怎 样 才 能 实 现 像 他 们 那 样 ？ 
    我 想 准 确 地 打 开 文 件 ， 是 因 为 近 来 想 编 一 个 加 密 程 序 ， 需 要 把 文 件 写 在 RICHTEXTBOX上 对 其 字 符 逐 一 加 密 再 保 存 。 如 果 你 有 什 么 好 建 议 ， 恳 请 赐 教 ！ 
<END>
43,VB和VFP到底哪种工具开发数据库好
我 现 在 准 备 开 发 一 套 数 据 库 方 面 的 程 序 ， 由 于 我 原 来 的 开 发 是 在 FOXBASE上 进 行 的 ， 所 以 我 准 备 用 VFOXPRO来 开 发 这 套 系 统 。 但 是 我 实 际 使 用 后 发 现 VFOXPRO虽 然 对 数 据 库 操 作 比 较 方 便 ， 但 是 其 他 的 功 能 并 不 是 很 好 。 
    我 原 先 学 过 VBASIC， 对 她 的 编 程 习 惯 已 较 为 熟 悉 ， 原 以 为 FOXBASE+VBASIC=VFOXPRO， 但 是 ， 似 乎 不 是 我 想 象 的 那 样 。 鉴 于 以 上 的 情 况 ， 我 准 备 在 VBASIC上 开 发 这 套 系 统 。 我 现 在 想 问 的 是 ： 
    1） 开 发 这 类 程 序 到 底 哪 种 编 程 工 具 好 
    2） 如 果 我 非 要 用 VBASIC来 开 发 数 据 库 程 序 ， 有 没 有 像 VFOXPRO操 作 数 据 库 那 样 简 单 的 命 令 或 方 法 
    3） 如 果 哪 位 大 虾 有 在 VBASIC上 处 理 数 据 库 的 范 例 程 序 ， 希 望 能 让 我 参 考 一 下 。 
<END>
44,VB里有没有类
1。 回 答  “哪些是对象，哪些不是”练 习 题 ， Form1具 有 属 性 ,是 对 象 , 对 吗 ？ 请 问 Form1对 象 与 Command1、 Text1对 象 是 什 么 关 系 ， Command1、 Text1在 Form1里 ， 是 否 说 明 Form1比 Command1、 Text1高 级 ? 
    2。 请 问 vb里 有 没 有 类 ， 类 有 什 么 表 现 形 式 ？ 
<END>
45,哪些是对象，哪些不是
我 对 对 象 的 概 念 很 模 糊 ， 现 在 还 分 不 清 哪 些 是 对 象 。 现 在 有 一 计 算 器 小 程 序 ， 你 能 告 诉 我 程 序 中 哪 些 部 分 是 对 象 吗 ？ 
    Dim Num1, Num2 As Single 
    Dim StrNum1, StrNum2 As String 
    Dim FirstNum As Boolean 
    Dim PointFlag As Boolean 
    Dim Runsign As Integer '储 存 运 算 符 号 
    Dim SignFlag As Boolean '判 断 是 否 已 有 运 算 符 号 
     
    Private Sub Command1_Click(Index As Integer) 
    Select Case Index 
     Case 0 To 9 
     If FirstNum Then 
     StrNum1 = Str(Index) '实 型 转 字 符 型 
     FirstNum = False '初 赋 值 为 假 
     Else '非 初 赋 值 
     StrNum1 = StrNum1 + Str(Index) 
     End If 
     Text1.Text = StrNum1 '显 示 
     Case 10 
     If Not PointFlag Then '如 果 没 有 小 数 点 
     If FirstNum Then '如 果 是 第 一 个 字 符 
     StrNum1 = "0." 
     FirstNum = False 
     Else 
     StrNum1 = StrNum1 + "." 
     End If 
     Else '已 有 小 数 点 
     Exit Sub '则 退 出 单 击 事 件 
     End If 
     PointFlag = True 
     Text1.Text = StrNum1 
     Case 12 To 15 
     FirstNum = True '使 下 一 次 可 以 输 入 新 数 据 
     PointFlag = False '还 原 标 记 值 
     If SignFlag Then '前 面 已 有 运 算 符 未 运 算 
     Call Run 
     Else 
     SignFlag = True 
     StrNum2 = StrNum1 '把 字 符 串 1复 制 给 字 符 串 2 
     StrNum1 = "" '字 符 串 1清 空 
     End If 
     Runsign = Index - 11 '储 存 键 入 的 运 算 符 
     PointFlag = True 
     Text1.Text = StrNum1 
     Case 11 
     If Not SignFlag Then 
     Text1.Text = StrNum1 
     equal = Val(StrNum1) 
     FirstNum = True 
     PointFlag = False 
     Else 
     Call Run 
     SignFlag = False 
     End If 
     Case Else '清 除 按 钮 
     Call ClearData 
    End Select 
    End Sub 
     
    Private Sub Form_Load() 
     Num1 = 0 
     Num2 = 0 
     StrNum1 = "" 
     StrNum2 = "" 
     FirstNum = True 
     PointFlag = False 
     Runsign = 0 
     SignFlag = False 
    End Sub 
     
    Sub Run() 
     Num1 = Val(StrNum2) 
     Num2 = Val(StrNum1) 
     Select Case Runsign 
     Case 1 '加 
     equal = Num1 + Num2 
     
     Case 2 '减 
     equal = Num1 - Num2 
     
     Case 3 '乘 
     equal = Num1 * Num2 
     
     Case 4 '除 
     equal = Num1 / Num2 
     End Select 
     
     StrNum2 = Str(equal) 
     StrNum1 = StrNum2 
     Text1.Text = StrNum2 
    End Sub 
     
    Sub ClearData() 
     Num1 = 0 
     Num2 = 0 
     StrNum1 = "" 
     StrNum2 = "" 
     FirstNum = True 
     PointFlag = False 
     Runsign = 0 
     SignFlag = False 
     Text1.Text = "0." 
    End Sub 
<END>
46,可以用vb6学习VB6的书吗
请 问 vb6和 vb6有 什 么 区 别 ？ 我 可 以 用 vb6学 习 vb6的 书 吗 ？ 
<END>
47,VB编程中应重点掌握什么
请 问 vb编 程 中 应 重 点 掌 握 什 么 ？ 是 否 如 VC一 样 分 API、 MFC等 部 分 ？ 还 有 ， 您 提 供 了 很 多 英 文 站 点 ， 如 果 英 文 不 好 又 想 勉 强 看 。 有 什 么 好 方 法 ? 
<END>
48,VB与VC相比各有什么特点，用途
vb与 vc相 比 ， 谁 更 好 ？ 各 有 什 么 特 点 ， 用 途 ？ 
<END>
49,学VB应如何学起
学 vb应 如 何 学 起 ？ 有 什 么 好 书 推 介 ？ 
<END>     
50,vb与basic有何关系
vb与 basic有 何 关 系 ? 
<END>     
51,怎样在两个窗体间传递变量
怎 样 在 两 个 窗 体 间 传 递 变 量 ？ 我 用 PUBLIC申 明 了 一 个 变 量 ， 并 在 其 中 一 个 窗 体 内 赋 了 值 ， 但 当 这 个 变 量 传 递 到 另 一 个 窗 体 时 ， 值 却 为 空 ， 请 问 这 是 什 么 原 因 ？ 难 道 VB里 没 有 全 局 变 量 这 个 概 念 ？ 
<END>