Tag: # Visual Basic

我们在设计一个VB窗体时， 常常放上许多控件， 为了使这些控件看上去整整齐齐，我们不得不设置一大堆Left、 Top、 Height、 Width属性，您是否已经感到厌烦并想转向Powerbuilder或 Delphi等别急，让我们现在就来扩展一下VB的功能。VB提供了一个功能:Add-Ins，利用这一功能我们就可以把自己的程序加到VB的系统菜单Add-Ins里去，作为VB的扩展功能。 阅读全文

[vb]算数精度 Dim i As Integer Dim Sum As Single For i = 0 To 100 Sum = Sum + 0.01 Next i Text1.Text = Sum 和等于 1.01，但在 Text1.Text 显示 1.009999 Dim i As Integer Dim x As Single Dim y As Single For i = 0 To 1000 x = x + 0.01 Next 阅读全文

[vb]RND随机数的原理 Microsoft Visual Basic RND 函数中的伪随机数字生成使用线性congruential算法。 阅读全文

日期比较方法 看到这个文章你一定会觉得很诧异，别诧异，看看就知道了。使用运算符会造成误差，解决办法是使用函数，该函数有较低的容差。 阅读全文

Microsoft Visual Basic 6.0 Common Controls网页地址： http://www.microsoft.com/downloads/details.aspx?FamilyId=25437D98-51D0-41C1-BB14-64662F5F62FE&displaylang=en下载地址： http://download.microsoft.com/download/3/a/5/3a5925ac-e779-4b1c-bb01-af67dc2f96fc/VisualBasic6-KB896559-v1-ENU.exe http://download.microsoft.com/download/4/9/f/49f00daa-e664-4cc9-9c0c-be282cc899d6/VisualBasic6-KB896559-v1-CHS.exe   阅读全文

[vb]数组的排序算法 Option Explicit Dim startTime As Double Dim endTime As Double Dim timeToSort As Double Dim timeTaken As String Sub Command1_Click() Dim lMyArray(0 To 2000) As Long Dim vTemp1 As Variant Dim vTemp2 As Variant Dim vTemp3 As Variant Dim iLoop As Integer Randomize For iLoop = LBound(lMyArray) To UBound(lMyArray) lMyArray(iLoop) = Int(Rnd * 100) + 1 Next iLoop vTemp1 阅读全文

[vb]TextOut例子 Option Explicit Private Declare Function GetDC Lib "user32" (ByVal hwnd As Long) As Long Private Declare Function TextOut Lib "gdi32" Alias "TextOutA" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long, ByVal lpString As String, ByVal nCount As Long) As Long Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal 阅读全文

转换区位码到汉字 阅读全文

获得汉字的区位码 CSDN:Hassle原创 阅读全文