WinFBE(Freebasic-ide),像VB6的VISUAL basic ide

Winfbe和源码下载,Releases · PaulSquires/WinFBE
https://github.com/PaulSquires/WinFBE/releases


Freebasic的一些IDE,Projects - freebasic.net
https://www.freebasic.net/forum/viewforum.php?f=8&sid=e606426b348d3a84ff2365b450fc5954

WinFBE第一个工程Dos控制台程序

print("abc")
sleep 20000

vfb的示例:VisualFreeBasic(软件介绍)-勇芳-勇芳软件开发小组官方网站
http://www.yfvb.com/soft-48.htm

  Dim As Integer foo
  Do '下面是演示控制台流程代码,对按键产生反应
      foo = GetKey
      Select Case foo
          Case 13
              Print
          Case 19455 '方向键 左
              Locate CsrLin, Pos -1
          Case 19967 '方向键 右
              Locate CsrLin, Pos + 1
          Case 18687 '方向键 上
              Locate CsrLin -1, Pos
          Case 20735 '方向键 下
              Locate CsrLin + 1, Pos
          Case Else
              Print Chr(foo);
      End Select
  Loop


打开IDE:

写代码:

所有的控件列表,可以设计一个窗本,用这句代码显示:form1.ShowDialog

 

  • 0
    点赞
  • 0
    收藏
    觉得还不错? 一键收藏
  • 打赏
    打赏
  • 0
    评论
好的,我会尽力回答你的问题。 首先,WinHook 是一个用于Windows操作系统的钩子库,它允许你监视和控制系统中发生的事件。使用WinHook,你可以捕捉和处理各种系统事件,如键盘和鼠标输入,窗口消息等。 要实现在按下Home键时呼出隐藏窗口,你需要创建一个钩子函数来捕捉Home键的按下事件。以下是一个基本的WinHook钩子函数的示例代码: ``` ' 定义钩子回调函数 Declare Function HookProc Lib "user32.dll" Alias "CallNextHookEx" (ByVal nCode As Long, ByVal wParam As Long, ByVal lParam As Long) As Long ' 定义钩子ID常量 Const WH_KEYBOARD_LL = 13 ' 定义键盘事件常量 Const WM_KEYDOWN = &H100 Const WM_SYSKEYDOWN = &H104 ' 定义键盘事件数据结构 Type KBDLLHOOKSTRUCT vkCode As Long scanCode As Long flags As Long time As Long dwExtraInfo As Long End Type ' 声明全局变量 Dim hHook As Long ' 钩子回调函数 Function KeyboardHook(ByVal nCode As Long, ByVal wParam As Long, ByVal lParam As Long) As Long Dim HookData As KBDLLHOOKSTRUCT If nCode = HC_ACTION Then If wParam = WM_KEYDOWN Or wParam = WM_SYSKEYDOWN Then ' 捕捉Home键按下事件,显示隐藏窗口 HookData = ByVal lParam If HookData.vkCode = vbKeyHome Then ' 显示隐藏窗口的代码 ... End If End If End If ' 调用下一个钩子函数 KeyboardHook = HookProc(nCode, wParam, lParam) End Function ' 安装钩子函数 Function InstallHook() As Boolean hHook = SetWindowsHookEx(WH_KEYBOARD_LL, AddressOf KeyboardHook, App.hInstance, 0) If hHook <> 0 Then InstallHook = True Else InstallHook = False End If End Function ' 卸载钩子函数 Function UninstallHook() As Boolean If UnhookWindowsHookEx(hHook) <> 0 Then UninstallHook = True Else UninstallHook = False End If End Function ``` 在上面的代码中,我们定义了一个名为KeyboardHook的钩子回调函数,用于捕捉按键事件。在钩子回调函数中,我们检查按键事件的vkCode是否为vbKeyHome,如果是,就执行显示隐藏窗口的代码。 要安装钩子函数,我们调用SetWindowsHookEx函数,并将WH_KEYBOARD_LL作为钩子类型传入。要卸载钩子函数,我们调用UnhookWindowsHookEx函数,传入钩子句柄hHook。 以上是使用WinHook控件实现在按下Home键时呼出隐藏窗口的基本代码示例,你可以根据自己的需要进行修改和完善。
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包

打赏作者

专注VB编程开发20年

你的鼓励将是我创作的最大动力

¥1 ¥2 ¥4 ¥6 ¥10 ¥20
扫码支付:¥1
获取中
扫码支付

您的余额不足,请更换扫码支付或充值

打赏作者

实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值