王峰炬

摘要： Dim mysort As IntegerPrivate Sub Form_Load()With MSHFlexGrid1.Cols = 4.Rows = 20 '20行4列For i = 0 To 79.TextArray(i) = IIf(i < 4, Chr(i + 65), Forma... 阅读全文

摘要： Private Declare Function timeGetTime Lib "winmm.dll" () As LongDim STARTTIME As LongPrivate Sub Command1_Click()STARTTIME = timeGetTimeTimer1.Enabled... 阅读全文

摘要： 好久没来这里了。最近看了一些数论方面的文章，受益匪浅。想到我们初学VB时，利用循环查找素数是必修之课，随手写了两段列举素数的代码，并详细注释。自己感觉还是比较快的。 代码如下： '***********************************************************... 阅读全文

摘要： Private Declare Function SendMessage Lib "user32.dll" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As A... 阅读全文

摘要： 利用API 引用vb6a.dll (Private Declare Function EbExecuteLine Lib "vba6.dll" (ByVal pStringToExec As Long, ByVal Unknownn1 As Long, ByVal Unknownn2 As L... 阅读全文

摘要： Private Sub Command1_Click()Devide 123456789, 987654321, 2000End Sub Sub Devide(ByVal X As Long, ByVal Y As Long, Optional ByVal Numdigitsafterdecima... 阅读全文

摘要： Private Declare Function StretchBlt Lib "gdi32" (ByVal hdc As Long, ByVal X As Long, ByVal Y As Long, ByVal nWidth As Long, ByVal nHeight As Long, By... 阅读全文

摘要： Private Declare Function StretchBlt Lib "gdi32" (ByVal hdc As Long, ByVal X As Long, ByVal Y As Long, ByVal nWidth As Long, ByVal nHeight As Long, By... 阅读全文

摘要： 英语单词构词法 (1)前缀 1.表示否定意义的前缀 1)纯否定前缀a-, an-, asymmetry（不对称）anhydrous（无水的）dis- dishonest, dislikein-, ig-, il, im, ir, incapable, inability, ignoble, im... 阅读全文

摘要： MSHFlexGrid控件点击时可以选中多行，但有时我们需要仅仅选中一行，有一个小技巧： Option ExplicitPrivate Sub Form_Load()Dim i As Integer, j As IntegerWith MSHFlexGrid1.Rows = 10.Cols =... 阅读全文