資料視窗提示系列文章–斷行符號鍵的完整編程

來源:互聯網
上載者:User

下面的指令碼在資料視窗的PBm_dwnprocessenter使用者事件中編寫,用來檢查資料視窗中錄入資料的各種情況,並執行相應的程式。
(1)當返回負值時
肯定某列存在錯誤,這時既不處理Enter鍵也不處理Tab鍵。
(2)當返回非負值時
如果是最後的行列則應該在按斷行符號鍵時插入一行,並使游標定位到新行的第一列上。
- 如果不是最後行列則應該發送Tab資訊,屏蔽Enter鍵的處理。
指令碼如下:
If This.AcceptText() < 0 Then //如果不能正確接受使用者的輸入資訊
      Return 1 //則不進行按鍵處理,直接返回
End If
If This.GetColumn()=Long(dw_1.Object.DataWindow.Column.Count) Then //如果是最後一列
     If This.GetRow() = This.RowCount() Then //並且是在最後一行
          This.InsertRow(0) //則增加新行
          This.ScrollToRow(This.GetRow() + 1) //並且使之成為當前行
          This.SetColumn(1) //並將第一列設定為當前列
          Return 1 //然後返回
     End If
End If
Send(Handle(This),256,9,Long(0,0)) //發送處理Tab鍵的訊息
Return 1//忽略斷行符號鍵的處理

聯繫我們

該頁面正文內容均來源於網絡整理,並不代表阿里雲官方的觀點,該頁面所提到的產品和服務也與阿里云無關,如果該頁面內容對您造成了困擾,歡迎寫郵件給我們,收到郵件我們將在5個工作日內處理。

如果您發現本社區中有涉嫌抄襲的內容,歡迎發送郵件至: info-contact@alibabacloud.com 進行舉報並提供相關證據,工作人員會在 5 個工作天內聯絡您,一經查實,本站將立刻刪除涉嫌侵權內容。

A Free Trial That Lets You Build Big!

Start building with 50+ products and up to 12 months usage for Elastic Compute Service

  • Sales Support

    1 on 1 presale consultation

  • After-Sales Support

    24/7 Technical Support 6 Free Tickets per Quarter Faster Response

  • Alibaba Cloud offers highly flexible support services tailored to meet your exact needs.