专注于互联网--专注于架构

最新标签
网站地图
文章索引
Rss订阅
  希望大家好好看看好多吧里问题这里都能找到答案资料是我从网络中搜集来今天先发上来些希望大家能够从中学到些东西  1. 如何消除textbox中按下回车时beep声?Private Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then   KeyAscii = 0 End IfEnd Sub  2.Textbox获得焦点时自动选中Private Sub Text1_GotFocus Text1.SelStart = 0 Text1.SelLength = Len(Text1.Text)En [阅读全文] [PDF]
  26.冒泡排序如下:Sub BubbleSort(List As Double)Dim First As Double, Last As DoubleDim i As Integer, j As IntegerDim Temp As DoubleFirst = LBound(List)Last = UBound(List)For i = First To Last - 1For j = i + 1 To LastIf List(i) > List(j) ThenTemp = List(j)List(j) = List(i)List(i) = Tem [阅读全文] [PDF]
  35.VB下CRC校验   计算法  计算法就是依据CRC校验码产生原理来设计其优点是模块代码少修改灵活可移植性好其缺点为计算量大为了便于理解这里假  定了 3位数据而多项式码为A001(hex)  在窗体上放置命令按钮Command1并添加如下代码:  Private Sub Command1_Click    Dim CRC As Byte    Dim d As Byte '待传输数据    ReDim d(2) As Byte    d(0) = 123    d(1) = 112    d(2) = 135    CRC = CRC16 [阅读全文] [PDF]
  41.如何在小画面上显示大图片  思路方法:  个pictureboxControl控件个imageControl控件(以picturebox为容器)图片加载在image中个HScroll1VScroll1(以picturebox为容器)Private Sub Bar1_ChangeImage1.Left = -bar1.ValueEnd SubPrivate Sub Bar2_ChangeImage1.Top = -Bar2.ValueEnd SubPrivate Sub Form_LoadImage1.Left = 0Image1.Top = 0ba [阅读全文] [PDF]
  45.led数值显示  添加类模块:(name属性为mcLCD)Option ExplicitPrivate Type CoordinateX As IntegerY As IntegerEnd TypeDim BasePo As CoordinateDim SegWidth As IntegerDim SegHeight As IntegerDim p As PictureBoxProperty Let BackColor(Color As Long)p.BackColor = ColorEnd PropertyPrivate Sub DrawNumb [阅读全文] [PDF]
  49 各种进制转换Function Bin2Dec(InputData As String) As Double ' 2进制转变成十进制Dim DecOut As Double:Dim I As Integer:Dim LenBin As Double:Dim JOne As StringLenBin = Len(InputData) '确认是否为 2进制数For I = 1 To LenBinJOne = Mid(InputData, I, 1)If JOne <> "0" And JOne <&g [阅读全文] [PDF]
1 共6条 分1页