发布时间：2023-08-31 14:49:41

Private Sub txt_dh_KeyDown(KeyCode As Integer, Shift As Integer)If KeyCode = 13 ThenCall Command3_ClickEnd IfEnd SubPrivate Sub txt_dh_KeyPress(KeyAscii As Integer)If KeyAscii = 13 ThenCall Command3_ClickEnd IfEnd Sub......【阅读全文】

发布时间：2023-08-31 13:19:27

Windows有一个比较特殊的版本——Long Term Servicing Channel，即长期服务通道。简称LTSC版，被网友戏称「老坛酸菜」。何为长期服务？不进行功能性升级即版本号不变，只进行安全等相关的更新，微软承诺为这个版本提供5-10年的安全补丁和修复。该版本无应用商店、Edge浏览器，Cortana等，是微软基于Enterprise(企业版).........【阅读全文】

发布时间：2023-08-19 15:24:34

     Form2.Command1.Value = True......【阅读全文】

发布时间：2023-08-18 16:21:38

http://www.newxing.com/Tech/Program/VisualBasic/Form_Resize_170.htmlVBScript codeOption Explicit'以下程式在module1.bas Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" _  (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long Declar.........【阅读全文】

发布时间：2023-08-18 16:19:42

VB MSHFlexGrid排序这次想对MSHFlexGrid的内容进行排序，排序方法是：点击表头，自动进行升序或者降序。Dim IntSort as Integer '必须放在通用，否则无法排序Private Sub MSHFlexGrid_Click()If (MSHFlexGrid.Col = MSHFlexGrid.ColSel) And (MSHFlexGrid.RowSel = MSHFlexGrid.Rows - 1) And (MSHFlexGrid.Row <> MS.........【阅读全文】