VBGood网站全文搜索 Google

搜索VBGood全站网页(全文搜索)

VB爱好者乐园(VBGood)

 找回密码
 立即注册
搜索
楼主: 周星骋

这就是我用VB6制作的屏幕键盘。

[复制链接]
 楼主| 发表于 2007-7-18 00:30:01 | 显示全部楼层
③标签 Label :
┏━━━┯━┯━━━┯━━┯━━━━━━━━┯━━━┯━━┯━━━┯━━┯━━┓
┃ 名称 │对│ 自动 │背景│      标题      │前景色│ 高 │  左  │ 顶 │ 宽 ┃
┃ Name │齐│ 大小 │样式│    Caption     │16进制│    │ Left │Top │    ┃
┠───┼─┼───┼──┼────────┼───┼──┼───┼──┼──┨
┃数字灯│ 2│True  │   0│●              │00FFE0│0.75│  77.5│ 0.2│ 1.5┃
┠───┼─┼───┼──┼────────┼───┼──┼───┼──┼──┨
┃大写灯│ 2│True  │   0│●              │D9A16F│0.75│ 83.25│ 0.2│ 1.5┃
┠───┼─┼───┼──┼────────┼───┼──┼───┼──┼──┨
┃卷轴灯│ 2│True  │   0│●              │D9A16F│0.75│    89│ 0.2│ 1.5┃
┠───┼─┼───┼──┼────────┼───┼──┼───┼──┼──┨
┃Label1│ 2│True  │   0│数字灯          │白    │0.75│    76│0.95│ 4.5┃
┠───┼─┼───┼──┼────────┼───┼──┼───┼──┼──┨
┃Label2│ 2│True  │   0│大写灯          │白    │0.75│ 81.75│0.95│ 4.5┃
┠───┼─┼───┼──┼────────┼───┼──┼───┼──┼──┨
┃Label3│ 2│True  │   0│卷轴灯          │白    │0.75│  87.5│0.95│ 4.5┃
┗━━━┷━┷━━━┷━━┷━━━━━━━━┷━━━┷━━┷━━━┷━━┷━━┛
     ④菜单:
    标题“快捷菜单”,名称“MnuRight”,可见False。以下是四个菜单项:
        标题“关于软件”,名称“MnuAbout”,可见True;
        标题“版本信息”,名称“MnuEdition”,可见True;
        标题“编程语言”,名称“MnuProgramme”,可见True;
        标题“作者信息”,名称“MnuAuthor”,可见True。
回复 支持 反对

使用道具 举报

 楼主| 发表于 2007-7-18 00:31:32 | 显示全部楼层
3.代码:

Option Explicit
Rem 转移输入焦点的声明
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 "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long

Rem 窗口置顶的声明
Private Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal X As Long, ByVal Y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long

Rem 移动没有标题栏窗体的声明
Private Declare Function ReleaseCapture Lib "user32" () As Long
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long

Rem 模拟按键声明
Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)

Rem 禁止本窗体拥有输入焦点的常数
Private Const HWND_NOTOPMOST = -2
Private Const WS_DISABLED = &H8000000
Private Const GWL_EXSTYLE = (-20)
Private Const GWL_STYLE = (-16)

Rem 窗口置顶的常数
Private Const HWND_TOPMOST = -1
Private Const SWP_NOACTIVATE = &H10
Private Const SWP_NOMOVE = &H2
Private Const SWP_NOSIZE = &H1
Private Const SWP_SHOWWINDOW = &H40

Rem 移动没有标题栏窗体的常数
Private Const HTCAPTION = 2
Private Const WM_NCLBUTTONDOWN = &HA1

Rem 模拟按钮常数
Private Const KEYEVENTF_KEYUP = &H2

Rem 以下是程序执行主体部分
Rem 窗体调用时置顶,且禁止拥有输入焦点
Private Sub Form_Load()
    Me.Show
    小写字母
    下档符号
    数字小键盘
    数字锁.SetFocus
    SKB(8).Caption = "退格" & Chr(10) & "←"
    SetWindowPos Me.hwnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOACTIVATE Or SWP_SHOWWINDOW Or SWP_NOMOVE Or SWP_NOSIZE
    SetWindowLong Me.hwnd, GWL_EXSTYLE, GetWindowLong(Me.hwnd, GWL_EXSTYLE) Or WS_DISABLED
End Sub

Rem 鼠标移动到窗体上时,窗体置顶
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    SetWindowPos Me.hwnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOACTIVATE Or SWP_SHOWWINDOW Or SWP_NOMOVE Or SWP_NOSIZE
End Sub

Rem 移动没有标题栏窗体,弹出快捷菜单
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    ReleaseCapture
    SendMessage hwnd, WM_NCLBUTTONDOWN, HTCAPTION, 0&
    If Button = 2 Then
        PopupMenu MnuRight, 2, , , MnuAbout
    End If
End Sub

Rem 窗体重现时,设置其位置在屏幕中下方且置顶
Private Sub Form_Paint()
    SetWindowPos Me.hwnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOACTIVATE Or SWP_SHOWWINDOW Or SWP_NOMOVE Or SWP_NOSIZE
    Me.Left = Screen.Width / 2 - Me.Width / 2
    Me.Top = Screen.Height - Me.Height - 450
End Sub

Rem 防止执行多次
Private Sub Form_Initialize()
    If App.PrevInstance Then End
End Sub

Rem 弹出式快捷菜单项
Private Sub MnuAbout_Click()
    MsgBox "1.气球提示:鼠标指针指向某个键,停留片该,将会显示该键的英文全称或中文全称。" _
    & Chr(10) & "2.指法提示:鼠标指针的形状在每个键上都根据相应指法发生变化。" _
    & Chr(10) & "3.高亮提示:按下某个键时,该键会变得高亮;如果按下的是开关键,相应的指示灯也会变得高亮。" _
    & Chr(10) & "4.换档提示:当按下 Caps Lock 、Shift 、Num Lock 键时,相应的,大写字母、上档符号、小键盘数字会突出显示;" _
    & "反之, 当弹起 Caps Lock 、Shift 、Num Lock 键时,相应的,小写字母、下档符号、小键盘光标键会突出显示。" _
    & Chr(10) & "5.随手移动:在键盘背景处用鼠标拖动,可移动键盘。", , "关于仿 Microsoft 屏幕键盘"
End Sub
Private Sub MnuAuthor_Click()
    MsgBox "作者:盛华" _
    & Chr(10) & "昵称:周星骋" _
    & Chr(10) & "QQ:249498337" _
    & Chr(10) & "邮箱:ShengHua8@163.com" _
    & Chr(10) & "地址:陕西省安康市白河县城关镇教研室家属楼", , "作者信息"
End Sub
Private Sub MnuProgramme_Click()
    MsgBox "Microsoft(C) Visual Basic(R) 6.0", , "编程语言"
End Sub
Private Sub MnuEdition_Click()
    MsgBox "仿 Microsoft 屏幕键盘" & Chr(10) & "版本:1.0.5.0" & Chr(10) & "2005年11月12日13时14分15秒", , "版本信息"
End Sub

Rem 用控件数组向外部窗口发送按键信息
Private Sub SKB_Click(Index As Integer)
    keybd_event Index, 0, 0, 0
    keybd_event Index, 0, KEYEVENTF_KEYUP, 0
End Sub

Rem 获得焦点键高亮
Private Sub SKB_GotFocus(Index As Integer)
    SKB(Index).BackColor = &HFFE0&
End Sub
Private Sub SKB_LostFocus(Index As Integer)
    SKB(Index).BackColor = vbWhite
End Sub

Rem 三个控制键盘灯的键
Private Sub 大写锁_Click()
    If 大写锁.BackColor = &HD9A16F Then
        大写锁.BackColor = &HFFE0&
        大写灯.ForeColor = &HFFE0&
        keybd_event 20, 0, 0, 0
        keybd_event 20, 0, KEYEVENTF_KEYUP, 0
    If 换档(160).BackColor = &HFFE0& Or 换档(161).BackColor = &HFFE0& Then
            小写字母
        Else
            大写字母
        End If
    Else
        大写锁.BackColor = &HD9A16F
        大写灯.ForeColor = &HD9A16F
        keybd_event 20, 0, 0, 0
        keybd_event 20, 0, KEYEVENTF_KEYUP, 0
    If 换档(160).BackColor = &HFFE0& Or 换档(161).BackColor = &HFFE0& Then
            大写字母
        Else
            小写字母
        End If
    End If
End Sub

Private Sub 数字锁_Click()
    If 数字锁.BackColor = &HD9A16F Then
        数字锁.BackColor = &HFFE0&
        数字灯.ForeColor = &HFFE0&
        keybd_event 144, 0, 0, 0
        keybd_event 144, 0, KEYEVENTF_KEYUP, 0
    If 换档(160).BackColor = &HFFE0& Or 换档(161).BackColor = &HFFE0& Then
            光标小键盘
        Else
            数字小键盘
        End If
    Else
        数字锁.BackColor = &HD9A16F
        数字灯.ForeColor = &HD9A16F
        keybd_event 144, 0, 0, 0
        keybd_event 144, 0, KEYEVENTF_KEYUP, 0
        光标小键盘
    End If

End Sub
Private Sub 卷轴锁_Click()
    If 卷轴锁.BackColor = &HD9A16F Then
        卷轴锁.BackColor = &HFFE0&
        卷轴灯.ForeColor = &HFFE0&
        keybd_event 145, 0, 0, 0
        keybd_event 145, 0, KEYEVENTF_KEYUP, 0
    Else
        卷轴锁.BackColor = &HD9A16F
        卷轴灯.ForeColor = &HD9A16F
        keybd_event 145, 0, 0, 0
        keybd_event 145, 0, KEYEVENTF_KEYUP, 0
    End If
End Sub

Rem 四组成对的特殊键
Private Sub 控制_Click(Index As Integer)
    If 控制(Index).BackColor = &HD9A16F Then
        控制(Index).BackColor = &HFFE0&
        keybd_event Index, 0, 0, 0
    Else
        控制(Index).BackColor = &HD9A16F
        keybd_event Index, 0, KEYEVENTF_KEYUP, 0
    End If
End Sub

Private Sub 转换_Click(Index As Integer)
    If 转换(Index).BackColor = &HD9A16F Then
        转换(Index).BackColor = &HFFE0&
        keybd_event Index, 0, 0, 0
    Else
        转换(Index).BackColor = &HD9A16F
        keybd_event Index, 0, KEYEVENTF_KEYUP, 0
    End If
End Sub

Private Sub 徽标_Click(Index As Integer)
    If 徽标(Index).BackColor = &HD9A16F Then
        徽标(Index).BackColor = &HFFE0&
        keybd_event Index, 0, 0, 0
    Else
        徽标(Index).BackColor = &HD9A16F
        keybd_event Index, 0, KEYEVENTF_KEYUP, 0
    End If
End Sub

Private Sub 换档_Click(Index As Integer)
    If 换档(Index).BackColor = &HD9A16F Then
        换档(Index).BackColor = &HFFE0&
        keybd_event Index, 0, 0, 0
        上档符号
        If 大写灯.ForeColor = &HFFE0& Then
            小写字母
        Else
            大写字母
        End If
        光标小键盘
    Else
        换档(Index).BackColor = &HD9A16F
        keybd_event Index, 0, KEYEVENTF_KEYUP, 0
        下档符号
        If 大写灯.ForeColor = &HFFE0& Then
            大写字母
        Else
            小写字母
        End If
        If 数字灯.ForeColor = &HFFE0& Then
            数字小键盘
        Else
            光标小键盘
        End If
    End If
End Sub

Rem 弹出式快捷菜单键
Private Sub 快捷菜单_Click()
    keybd_event 93, 0, 0, 0
    keybd_event 93, 0, KEYEVENTF_KEYUP, 0
End Sub
Private Sub 快捷菜单_GotFocus()
    快捷菜单.BackColor = &HFFE0&
End Sub
Private Sub 快捷菜单_LostFocus()
    快捷菜单.BackColor = &HD9A16F
End Sub

Rem 小键盘回车
Private Sub 小回车_Click()
    keybd_event 13, 0, 0, 0
    keybd_event 13, 0, KEYEVENTF_KEYUP, 0
End Sub
Private Sub 小回车_GotFocus()
    小回车.BackColor = &HFFE0&
End Sub
Private Sub 小回车_LostFocus()
    小回车.BackColor = vbWhite
End Sub

Rem 处理小键盘上每个按键
Private Sub 小键盘_GotFocus(Index As Integer)
    小键盘(Index).BackColor = &HFFE0&
End Sub
Private Sub 小键盘_LostFocus(Index As Integer)
    小键盘(Index).BackColor = vbWhite
End Sub
Private Sub 小键盘_Click(Index As Integer)
    If 数字锁.BackColor = &HFFE0& Then
        keybd_event Index, 0, 0, 0
        keybd_event Index, 0, KEYEVENTF_KEYUP, 0
    Else
        Call 小键盘光标(Index)
    End If
End Sub
回复 支持 反对

使用道具 举报

 楼主| 发表于 2007-7-18 00:32:05 | 显示全部楼层
Rem 自定义子函数,使得小键盘变成光标
Sub 小键盘光标(ByVal NumIndex As Integer)
        Select Case NumIndex
            Case 96
                keybd_event 45, 0, 0, 0
                keybd_event 45, 0, KEYEVENTF_KEYUP, 0
            Case 97
                keybd_event 35, 0, 0, 0
                keybd_event 35, 0, KEYEVENTF_KEYUP, 0
            Case 98
                keybd_event 40, 0, 0, 0
                keybd_event 40, 0, KEYEVENTF_KEYUP, 0
            Case 99
                keybd_event 34, 0, 0, 0
                keybd_event 34, 0, KEYEVENTF_KEYUP, 0
            Case 100
                keybd_event 37, 0, 0, 0
                keybd_event 37, 0, KEYEVENTF_KEYUP, 0
            Case 101
            Case 102
                keybd_event 39, 0, 0, 0
                keybd_event 39, 0, KEYEVENTF_KEYUP, 0
            Case 103
                keybd_event 36, 0, 0, 0
                keybd_event 36, 0, KEYEVENTF_KEYUP, 0
            Case 104
                keybd_event 38, 0, 0, 0
                keybd_event 38, 0, KEYEVENTF_KEYUP, 0
            Case 105
                keybd_event 33, 0, 0, 0
                keybd_event 33, 0, KEYEVENTF_KEYUP, 0
            Case 110
                keybd_event 46, 0, 0, 0
                keybd_event 46, 0, KEYEVENTF_KEYUP, 0
        End Select
End Sub

Rem 自定义子函数,使子母键突出显示大写
Sub 大写字母()
    SKB(65).Caption = "A" & Chr(10) & "a"
    SKB(66).Caption = "B" & Chr(10) & "b"
    SKB(67).Caption = "C" & Chr(10) & "c"
    SKB(68).Caption = "D" & Chr(10) & "d"
    SKB(69).Caption = "E" & Chr(10) & "e"
    SKB(70).Caption = "F" & Chr(10) & "f"
    SKB(71).Caption = "G" & Chr(10) & "g"
    SKB(72).Caption = "H" & Chr(10) & "h"
    SKB(73).Caption = "I" & Chr(10) & "i"
    SKB(74).Caption = "J" & Chr(10) & "j"
    SKB(75).Caption = "K" & Chr(10) & "k"
    SKB(76).Caption = "L" & Chr(10) & "l"
    SKB(77).Caption = "M" & Chr(10) & "m"
    SKB(78).Caption = "N" & Chr(10) & "n"
    SKB(79).Caption = "O" & Chr(10) & "o"
    SKB(80).Caption = "P" & Chr(10) & "p"
    SKB(81).Caption = "Q" & Chr(10) & "q"
    SKB(82).Caption = "R" & Chr(10) & "r"
    SKB(83).Caption = "S" & Chr(10) & "s"
    SKB(84).Caption = "T" & Chr(10) & "t"
    SKB(85).Caption = "U" & Chr(10) & "u"
    SKB(86).Caption = "V" & Chr(10) & "v"
    SKB(87).Caption = "W" & Chr(10) & "w"
    SKB(88).Caption = "X" & Chr(10) & "x"
    SKB(89).Caption = "Y" & Chr(10) & "y"
    SKB(90).Caption = "Z" & Chr(10) & "z"
End Sub
Rem 自定义子函数,使子母键突出显示小写
Sub 小写字母()
    SKB(65).Caption = "A" & Chr(10) & "a"
    SKB(66).Caption = "B" & Chr(10) & "b"
    SKB(67).Caption = "C" & Chr(10) & "c"
    SKB(68).Caption = "D" & Chr(10) & "d"
    SKB(69).Caption = "E" & Chr(10) & "e"
    SKB(70).Caption = "F" & Chr(10) & "f"
    SKB(71).Caption = "G" & Chr(10) & "g"
    SKB(72).Caption = "H" & Chr(10) & "h"
    SKB(73).Caption = "I" & Chr(10) & "i"
    SKB(74).Caption = "J" & Chr(10) & "j"
    SKB(75).Caption = "K" & Chr(10) & "k"
    SKB(76).Caption = "L" & Chr(10) & "l"
    SKB(77).Caption = "M" & Chr(10) & "m"
    SKB(78).Caption = "N" & Chr(10) & "n"
    SKB(79).Caption = "O" & Chr(10) & "o"
    SKB(80).Caption = "P" & Chr(10) & "p"
    SKB(81).Caption = "Q" & Chr(10) & "q"
    SKB(82).Caption = "R" & Chr(10) & "r"
    SKB(83).Caption = "S" & Chr(10) & "s"
    SKB(84).Caption = "T" & Chr(10) & "t"
    SKB(85).Caption = "U" & Chr(10) & "u"
    SKB(86).Caption = "V" & Chr(10) & "v"
    SKB(87).Caption = "W" & Chr(10) & "w"
    SKB(88).Caption = "X" & Chr(10) & "x"
    SKB(89).Caption = "Y" & Chr(10) & "y"
    SKB(90).Caption = "Z" & Chr(10) & "z"
End Sub
Rem 自定义子函数,使运算符号突出显示上档
Sub 上档符号()
    SKB(48).Caption = ")" & Chr(10) & "0"
    SKB(49).Caption = "!" & Chr(10) & "1"
    SKB(50).Caption = "@" & Chr(10) & "2"
    SKB(51).Caption = "#" & Chr(10) & "3"
    SKB(52).Caption = "$" & Chr(10) & "4"
    SKB(53).Caption = "%" & Chr(10) & "5"
    SKB(54).Caption = "^" & Chr(10) & "6"
    SKB(55).Caption = "&" & Chr(10) & "7"
    SKB(56).Caption = "*" & Chr(10) & "8"
    SKB(57).Caption = "(" & Chr(10) & "9"
    SKB(186).Caption = ":" & Chr(10) & ";"
    SKB(187).Caption = "+" & Chr(10) & "="
    SKB(188).Caption = "<" & Chr(10) & ","
    SKB(189).Caption = "___" & Chr(10) & "-"
    SKB(190).Caption = ">" & Chr(10) & "."
    SKB(191).Caption = "?" & Chr(10) & "/"
    SKB(192).Caption = "~" & Chr(10) & "`"
    SKB(219).Caption = "{" & Chr(10) & "["
    SKB(220).Caption = "|" & Chr(10) & "\"
    SKB(221).Caption = "}" & Chr(10) & "]"
    SKB(222).Caption = "”" & Chr(10) & "'"
End Sub
Rem 自定义子函数,使运算符号突出显示下档
Sub 下档符号()
    SKB(48).Caption = ")" & Chr(10) & "0"
    SKB(49).Caption = "!" & Chr(10) & "1"
    SKB(50).Caption = "@" & Chr(10) & "2"
    SKB(51).Caption = "#" & Chr(10) & "3"
    SKB(52).Caption = "$" & Chr(10) & "4"
    SKB(53).Caption = "%" & Chr(10) & "5"
    SKB(54).Caption = "^" & Chr(10) & "6"
    SKB(55).Caption = "&&" & Chr(10) & "7"
    SKB(56).Caption = "*" & Chr(10) & "8"
    SKB(57).Caption = "(" & Chr(10) & "9"
    SKB(186).Caption = ":" & Chr(10) & ";"
    SKB(187).Caption = "+" & Chr(10) & "="
    SKB(188).Caption = "<" & Chr(10) & ","
    SKB(189).Caption = "__" & Chr(10) & "-"
    SKB(190).Caption = ">" & Chr(10) & "."
    SKB(191).Caption = "?" & Chr(10) & "/"
    SKB(192).Caption = "~" & Chr(10) & "`"
    SKB(219).Caption = "{" & Chr(10) & "["
    SKB(220).Caption = "|" & Chr(10) & "\"
    SKB(221).Caption = "}" & Chr(10) & "]"
    SKB(222).Caption = "″" & Chr(10) & "'"
End Sub
Rem 自定义子函数,使小键盘突出显示数字
Sub 数字小键盘()
    小键盘(96).Caption = "0" & Chr(10) & "插"
    小键盘(97).Caption = "1" & Chr(10) & "尾"
    小键盘(98).Caption = "2" & Chr(10) & "↓"
    小键盘(99).Caption = "3" & Chr(10) & "后"
    小键盘(100).Caption = "4" & Chr(10) & "←"
    小键盘(101).Caption = "5" & Chr(10) & "  "
    小键盘(102).Caption = "6" & Chr(10) & "→"
    小键盘(103).Caption = "7" & Chr(10) & "头"
    小键盘(104).Caption = "8" & Chr(10) & "↑"
    小键盘(105).Caption = "9" & Chr(10) & "前"
    小键盘(110).Caption = "." & Chr(10) & "删"
End Sub
Rem 自定义子函数,使小键盘突出显示光标
Sub 光标小键盘()
    小键盘(96).Caption = "0" & Chr(10) & "插"
    小键盘(97).Caption = "1" & Chr(10) & "尾"
    小键盘(98).Caption = "2" & Chr(10) & "↓"
    小键盘(99).Caption = "3" & Chr(10) & "后"
    小键盘(100).Caption = "4" & Chr(10) & "←"
    小键盘(101).Caption = "5" & Chr(10) & "  "
    小键盘(102).Caption = "6" & Chr(10) & "→"
    小键盘(103).Caption = "7" & Chr(10) & "头"
    小键盘(104).Caption = "8" & Chr(10) & "↑"
    小键盘(105).Caption = "9" & Chr(10) & "前"
    小键盘(110).Caption = "." & Chr(10) & "删"
End Sub
回复 支持 反对

使用道具 举报

 楼主| 发表于 2007-7-18 00:35:25 | 显示全部楼层

我已经上传到网上,欢迎下载。


我已经将“仿Microsoft屏幕键盘”及其源代码、详细说明文件打包上传到网上,下载页面是:
http://www.rsdown.cn/downinfo/3299.html
下载后用WinRAR解压,里面既有编译好的屏幕键盘,也有源代码。
欢迎各位下载试用!


[ 本帖最后由 周星骋 于 2007-7-18 00:38 编辑 ]
回复 支持 反对

使用道具 举报

发表于 2007-7-18 10:18:31 | 显示全部楼层
真有耐心,哈哈,佩服
回复 支持 反对

使用道具 举报

发表于 2007-7-18 11:49:59 | 显示全部楼层
为什么你一口咬定你的程序无法在98下运行?
里面也没看到有什么特殊的APi?
  keybd_event  98下不行吗?
回复 支持 反对

使用道具 举报

 楼主| 发表于 2007-7-18 15:18:46 | 显示全部楼层
那到不是。
而是禁止窗体自己拥有焦点这句,在98下执行不了。
回复 支持 反对

使用道具 举报

发表于 2007-7-18 15:28:18 | 显示全部楼层
98下没这个常数? SWP_NOACTIVATE ?
不过这到是有可能
回复 支持 反对

使用道具 举报

 楼主| 发表于 2007-7-19 08:32:12 | 显示全部楼层
我记得是没有这个常数:
WS_DISABLED = &H8000000
回复 支持 反对

使用道具 举报

 楼主| 发表于 2007-7-21 13:16:48 | 显示全部楼层
版主们,帮帮忙,把14楼(含14楼)以前的删了吧。
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

文字版|手机版|小黑屋|VBGood  

GMT+8, 2022-7-5 12:30

VB爱好者乐园(VBGood)
快速回复 返回顶部 返回列表