Old-wugong

摘要： 定制模块行为(1) Option Explicit '强制对模块内所有变量进行声明 Option Private Module '标记模块为私有，仅对同一工程中其它模块有用，在宏对话框中不显示 Option Compare Text '字符串不区分大小写 Option Base 1 '指定数组的第一 阅读全文

摘要： Dim Dest_Hwand As IntPtr Dest_Hwand = Me.TextBox2.Text winapi.ShowWindow(Dest_Hwand, Me.NumericUpDown1.Value) '3-显示窗体有焦点，并最大化 2-显示，但没焦点 1-- 显示，有焦点，非最大 阅读全文

摘要： ''' <summary> ''' 声明 ''' </summary> ''' <param name="hwnd"></param> ''' <param name="lpdwProcessId"></param> ''' <returns></returns> ''' <remarks 阅读全文

摘要： 设计思路：定时检测当前鼠标所在位置，若鼠标离开窗体区域，则窗体隐藏在顶部或右侧 Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick If Con 阅读全文

摘要： Sub Delay(ByVal ms As Int32) If ms < 10 Then Exit Sub Dim ft As Date = Date.Now Dim nt As Date Do Application.DoEvents() nt = Date.Now Threading.Threa 阅读全文

摘要： <DllImport("User32.dll", SetLastError:=True)> Public Shared Function PrintWindow(ByVal hwnd As IntPtr, ByVal hdc As IntPtr, ByVal nFlags As UInteger) 阅读全文

摘要： Dim oldtxt As String = "含有换行符的文本字符串，如 TAB ，空格，回车符、换行符等" ‘统计方法，使用 Split 函数 Dim sz() As String sz =oldtxt.Split(vbTab) MessageBox.Show(sz.Length - 1) '含 阅读全文

摘要： https://yunnanshenji.ynwmsj.cn/wenming/admin/login?region=MzAz 阅读全文

摘要： https://www.remove.bg/zh/upload 阅读全文

摘要： https://www.52pojie.cn/ 阅读全文