在数据窗口的文本框中使用滚轮上下翻页～～

使用PowerBuilder模拟键盘上下键
最新推荐文章于 2024-06-06 14:31:57 发布
原创 最新推荐文章于 2024-06-06 14:31:57 发布 · 1.4k 阅读 · 4 ·
CC 4.0 BY-SA版权
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
文章标签：

#library #user #up

本文介绍如何在PowerBuilder应用程序中使用keybd_event函数来模拟键盘上的上箭头和下箭头按键操作。该方法适用于需要通过软件控制方向键的应用场景。

//函数声明
//Subroutine keybd_event(int bVk , int bScan,int dwFlags, long dwExtraInfo)  LIBRARY "user32" Alias FOR  "keybd_event"
//在数据窗口的other事件中写入下面的代码

Constant ulong VK_UP = 38   //&H26
Constant ulong VK_DOWN = 40   //&H28

int li_key
if message.number = 522 then
 if IntHigh(message.wordparm)=120 then
  li_key = VK_UP
 else
  li_key = VK_DOWN
 end if
 keybd_event(li_key , 0,0, 0)
 keybd_event(li_key , 0,2, 0)
end if

pb8
关注
统信系统UOS桌面版V20 用户手册
Reyn_观极
07-27 2万+
UOS桌面版V20用户手册。
数据窗口Pageup与Pagedown翻页
城市蜗牛
09-26 1399
数据窗口Pageup与Pagedown翻页 数据窗口的key实践中写： Long ll_handle ll_handle = Handle(This) Choose Case True Case KeyDown(KeyPageDown!) Send(ll_handle, 277, 3, 0) Case KeyDown(KeyPageUp!) Send(ll_hand
数据在窗体中的翻页
zgqtxwd的专栏
05-01 443
<!--google_ad_client = "pub-2947489232296736";/* 728x15, 创建于 08-4-23MSDN */google_ad_slot = "3624277373";google_ad_width = 728;google_ad_height = 15;//--><script type="text/javascript"
【PB】如何捕捉DropDownDW列的上下键事件
02-28 3851
DDDW 事件概述 　　1、所有对DDDW的操作都通过触发pbm_command事件完成 　　1)、在PB的用户事件中，大多数事件对应的Windows 事件都有两个参数：lparam 和 wparam，而在PB中,pbm_command没有参数，但可以通过message对象的两个属性取得Windows事件对应的Event ID，这两个属性就是: LongParm 和 WordParm。
Html中文本滚动显示(上下滚动)
04-29 3246
 新的文本由下向上把旧的文本替换掉:主要是对CSS和DIV的应用。 只要我们想要更新数据时，就可以调用setTest（）方法，传递想要显示的字符串，而且如果当前信息正在滚动时，那么传递的字符串信息会缓充起来，当前信息显示完毕后再显示下一条html>head>title>title>style type="text/css"> .divs...{ overflow:hidden; b
pb 实用方法
fangchun的专栏
02-17 1164
对耗时短暂的代码段来说，这种处理方式没有什么不妥的地方，但是，如果某个代码段的执行耗时较长，应用程序又希望为用户提供更多的控制权，那么需要在这段代码中插入Yield()函数，让用户能够进行其它操作，特别在循环执行的代码中更应该如此。现的功能，特将对该api函数在Powerbuilder中的使用，例举几个方面的运用，以期起到抛砖引玉的效果(以下代码完全可以使用PowerBuilder中的Send函数替代SendMessage 这个Api函数，因起稿比较匆忙，代码未经测试)Long(0,0)代表预留空位.
office07.10access数据库窗体启用鼠标滚轮翻页教程.doc
06-03
Access数据库是Microsoft Office套件中的一个关键组件，主要用于管理和处理数据。在Access中，窗体是一种用户界面元素...对于那些经常需要在数据库中快速浏览和操作数据的用户来说，启用鼠标滚轮翻页是一项实用的改进。
Windows API 开发桌面应用程序，窗口支持上下左右滚动
lijian2017的博客
06-06 375
【代码】Windows API 开发桌面应用程序，窗口支持上下左右滚动。
上传一个jsonl文件，有非常非常多条json图片数据，然后前端左边展示图片，并且根据box框出内容，右边并显示文字描述和对话，而且有滚动条，支持图像上下翻页，python大概框架是什么，代码怎么实现，详细解释代码内容，json中图片在本地，怎么做成程序，很多人能用的那种，用tkinter靠谱吗 还是说用别的
08-01
- **滚动翻页**：通过上下按钮或鼠标滚轮实现 - **图像标注框**：在画布上绘制矩形框 - **部署**：使用 `PyInstaller` 打包成可执行文件，供多人使用 --- ### ✅ 示例：使用 `tkinter` 实现图像展示 + 文本描述 + ...
只读窗口怎么换行查看
10-14
如果是在图形界面编程里的文本框（如Qt中的`QTextEdit`）作为只读窗口，通常文本框本身就支持自动换行，若文本内容超出显示范围，会自动进行换行显示。例如在Qt中创建一个只读的`QTextEdit`作为日志显示控件，代码...
利用PB 制作拖动数据
06-15
利用PB 制作拖动数据 还可以查询数据 添加数据 删除数据
PB数据窗口限制用鼠标中键来滚动
肇启涛的专栏
04-12 1608
如果要禁止使用中键，则在dw中的other事件里写： if message.number = 522 then return 1 顺便和大家说说windows的鼠标系统消息 WM_MOUSEMOVE = 512;鼠标移动 WM_LBUTTONDOWN = 513;左键按下 WM_LBUTTONUP = 514;左键释放 WM_LBUTTONDBLCLK = 515;左键双击
python中scroll的用法_Selenium及python实现滚动操作多种方法
weixin_42376940的博客
03-02 1928
selenium并不是万能的，有时候页面上操作无法实现的，这时候就需要借助JS来完成了。当页面上的元素超过一屏后，想操作屏幕下方的元素，是不能直接定位到，会报元素不可见的。这时候需要借助滚动条来拖动屏幕，使被操作的元素显示在当前的屏幕上。滚动条是无法直接用定位工具来定位的。selenium里面也没有直接的方法去控制滚动条，这时候只能借助J了，还好selenium提供了一个操作js的方法:execu...
PB 数据窗口分页显示
走走停停，停停走走……
03-06 6955
http://hi.baidu.com/fengkuangfuhuo/blog/item/0cee587e03e444220dd7da19.html 使Datawindow每页固定500行 ---- 第一步:增加一个计算列,此计算列必须放在Detail段，Expression中输入: ceiling(getrow()/500) <--这里500还可以用全局函数取代，这样可以允许用户任意设置每页
在C#WindForm中，vScrollBar1和TextBox1如何进行绑定和交互
最新发布
11-12
<think>我们需要实现一个功能：当垂直滚动条（vScrollBar1）滚动时，文本框（textBox1）的内容也随之滚动，反之亦然。 在WinForms中，我们可以通过同步两个控件的滚动位置来实现。但是，TextBox本身没有提供直接绑定滚动条的方法，我们需要手动处理滚动事件。 注意：TextBox有一个内置的滚动条，我们可以通过设置其ScrollBars属性来显示垂直滚动条，但是它的滚动事件不是直接暴露的。 我们可以通过以下步骤实现： 1. 设置textBox1的Multiline为true，ScrollBars为Vertical，这样它就有垂直滚动条。 2. 将vScrollBar1的Minimum设置为0，Maximum设置为textBox1的文本行数（或根据内容调整）。 3. 当vScrollBar1的Value改变时，设置textBox1的滚动位置。 4. 当textBox1滚动时（通过鼠标滚轮或内置滚动条），更新vScrollBar1的Value。 但是，TextBox没有提供直接的滚动事件。我们可以使用Win32 API来捕获文本框的滚动事件，但这样比较复杂。 另一种方法是使用自定义控件继承TextBox，并暴露滚动事件。不过，这里我们采用一个简单的方法：使用定时器轮询文本框的滚动位置，但效率不高。 实际上，我们可以利用TextBox的VScroll事件，但是这个事件是受保护的，不能直接使用。因此，我们可以通过子类化TextBox来公开这个事件。 这里我们采用子类化的方法： 步骤： 1. 创建一个自定义的TextBox控件，暴露VScroll事件。 2. 在窗体中使用这个自定义TextBox控件。 3. 将vScrollBar1与自定义TextBox的VScroll事件绑定。 但是，如果我们不想创建自定义控件，也可以使用反射来订阅受保护的VScroll事件，但这样不推荐。 考虑到时间，我们采用创建自定义控件的方法。 自定义TextBox控件代码如下： </think>在 C# WinForms 中，将垂直滚动条 (vScrollBar1) 与文本框 (TextBox1) 绑定和交互，可以通过同步它们的滚动位置来实现。以下是完整的解决方案： ```csharp using System; using System.Windows.Forms; namespace ScrollBarBindingExample { public partial class Form1 : Form { // 标志变量，防止事件循环调用 private bool isScrolling = false; public Form1() { InitializeComponent(); // 绑定滚动事件 BindScrollBarToTextBox(); } private void BindScrollBarToTextBox() { // 初始化滚动条范围和位置 InitializeScrollBar(); // 绑定文本框滚动事件 textBox1.VScroll += TextBox1_VScroll; // 绑定滚动条滚动事件 vScrollBar1.Scroll += VScrollBar1_Scroll; } private void InitializeScrollBar() { // 获取文本框的行数和可见行数 int lineCount = textBox1.Lines.Length; int visibleLines = textBox1.Height / textBox1.Font.Height; // 设置滚动条范围 vScrollBar1.Minimum = 0; vScrollBar1.Maximum = Math.Max(0, lineCount - visibleLines); vScrollBar1.LargeChange = visibleLines; vScrollBar1.SmallChange = 1; // 初始位置 vScrollBar1.Value = textBox1.GetFirstCharIndexFromLine(0); } private void TextBox1_VScroll(object sender, EventArgs e) { // 防止事件循环 if (isScrolling) return; isScrolling = true; try { // 获取文本框当前行位置 int firstVisibleLine = textBox1.GetLineFromCharIndex(textBox1.GetCharIndexFromPosition(new Point(0, 0))); // 更新滚动条位置 vScrollBar1.Value = Math.Min(vScrollBar1.Maximum, firstVisibleLine); } finally { isScrolling = false; } } private void VScrollBar1_Scroll(object sender, ScrollEventArgs e) { // 防止事件循环 if (isScrolling) return; isScrolling = true; try { // 滚动文本框到指定位置 textBox1.Select(0, 0); // 清除选中文本 textBox1.ScrollToCaret(); // 重置位置 // 获取目标行首字符索引 int charIndex = textBox1.GetFirstCharIndexFromLine(e.NewValue); // 滚动文本框 if (charIndex >= 0) { textBox1.SelectionStart = charIndex; textBox1.ScrollToCaret(); } } finally { isScrolling = false; } } private void Form1_Resize(object sender, EventArgs e) { // 窗口大小改变时更新滚动条 InitializeScrollBar(); } } } ``` ### 代码详解： 1. **初始化设置**： ```csharp private void InitializeScrollBar() { // 计算文本框行数和可见行数 int lineCount = textBox1.Lines.Length; int visibleLines = textBox1.Height / textBox1.Font.Height; // 设置滚动条范围 vScrollBar1.Minimum = 0; vScrollBar1.Maximum = Math.Max(0, lineCount - visibleLines); vScrollBar1.LargeChange = visibleLines; // 一次翻页滚动行数 vScrollBar1.SmallChange = 1; // 单步滚动行数 } ``` - 计算文本框总行数和可见行数 - 设置滚动条最小/最大值 - `LargeChange`设置为可见行数，实现页面滚动 - `SmallChange`设置为1，实现单行滚动 2. **文本框滚动事件处理**： ```csharp private void TextBox1_VScroll(object sender, EventArgs e) { // 获取当前可视的第一行行号 int firstVisibleLine = textBox1.GetLineFromCharIndex( textBox1.GetCharIndexFromPosition(new Point(0, 0))); // 更新滚动条位置 vScrollBar1.Value = Math.Min(vScrollBar1.Maximum, firstVisibleLine); } ``` - 使用 `GetCharIndexFromPosition` 和 `GetLineFromCharIndex` 确定当前可视的首行 - 更新滚动条位置以匹配文本框位置 3. **滚动条滚动事件处理**： ```csharp private void VScrollBar1_Scroll(object sender, ScrollEventArgs e) { // 获取目标行首字符索引 int charIndex = textBox1.GetFirstCharIndexFromLine(e.NewValue); // 滚动文本框到指定位置 textBox1.SelectionStart = charIndex; textBox1.ScrollToCaret(); } ``` - 使用 `GetFirstCharIndexFromLine` 获取目标行首字符位置 - 设置 `SelectionStart` 并调用 `ScrollToCaret` 滚动文本框 4. **防递归机制**： ```csharp private bool isScrolling = false; // 在事件处理中： if (isScrolling) return; isScrolling = true; try { // 处理逻辑... } finally { isScrolling = false; } ``` - 防止滚动条和文本框事件相互触发导致递归调用 - 使用 `try/finally` 确保标志变量始终被重置 5. **窗体大小变化处理**： ```csharp private void Form1_Resize(object sender, EventArgs e) { InitializeScrollBar(); } ``` - 窗口大小改变时重新计算可见行数 - 更新滚动条参数以适应新尺寸 ### 完整实现步骤： 1. **窗体设计**： - 添加一个 `TextBox` 控件，命名为 `textBox1` - 设置 `textBox1` 属性： ```csharp textBox1.Multiline = true; textBox1.ScrollBars = ScrollBars.Vertical; // 启用内置滚动条 ``` - 添加一个 `VScrollBar` 控件，命名为 `vScrollBar1` 2. **代码实现**： - 在窗体构造函数中调用 `BindScrollBarToTextBox()` - 实现 `InitializeScrollBar` 初始化方法 - 实现两个滚动事件处理器 - 处理窗体 `Resize` 事件 3. **高级功能 - 平滑滚动优化**： ```csharp private void VScrollBar1_Scroll(object sender, ScrollEventArgs e) { // ... 其他代码 // 平滑滚动选项 if (e.Type == ScrollEventType.ThumbTrack) { // 实时跟踪 textBox1.Update(); } else { // 延迟更新直到滚动结束 textBox1.Refresh(); } } ``` 4. **处理大量文本**： ```csharp private void InitializeScrollBar() { // 对于大文本文件，使用更高效的方法 if (textBox1.Lines.Length > 10000) { // 估计行数 int approxLines = textBox1.Text.Length / 80; // 假设平均每行80字符 vScrollBar1.Maximum = approxLines; } else { // 标准方法 int lineCount = textBox1.Lines.Length; int visibleLines = textBox1.ClientSize.Height / textBox1.Font.Height; vScrollBar1.Maximum = Math.Max(0, lineCount - visibleLines); } } ``` ### 使用注意事项： 1. **文本框属性**： - 必须设置 `Multiline = true` - 建议设置 `WordWrap = false` 以获得更精确的行计数 2. **性能考虑**： - 对于超大文本（>10,000行），使用近似行数计算方法 - 避免在文本改变时频繁更新滚动条位置 3. **滚动精度**： - 使用 `GetFirstCharIndexFromLine` 方法确保精确行定位 - 处理可能的负值返回值（表示无效位置） 4. **自定义滚动条样式**： ```csharp vScrollBar1.BorderStyle = BorderStyle.FixedSingle; vScrollBar1.Width = 20; // 自定义宽度 vScrollBar1.BackColor = Color.LightGray; ``` 这个解决方案实现了文本框与垂直滚动条的完全同步交互，包括处理窗体大小变化、防止递归事件调用，并为大文本场景提供了优化方案。
评论 1
成就一亿技术人!
拼手气红包6.0元
还能输入1000个字符
 
红包 添加红包
表情包 插入表情
表情包 代码片
 条评论被折叠 查看
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

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

余额充值