vb.net
cmy3918
这个作者很懒,什么都没留下…
展开
-
按字节截取字符串
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click Dim str As String = Me.TextBox2.Text.Trim Dim sReturn As String = GetLenString原创 2009-03-24 16:32:00 · 432 阅读 · 0 评论 -
中文提取助记码
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click Dim ss As String ss = Me.TextBox3.Text.Trim Dim str As String F原创 2009-03-24 16:28:00 · 809 阅读 · 0 评论 -
跳出for循环
For i As Integer = 0 To 10 If i = 5 Then Continue For If i = 8 Then Continue For MsgBox(i.ToString) Next原创 2009-03-24 16:35:00 · 360 阅读 · 0 评论 -
系统输入法检测
Private Function bIsHave() As Boolean Try Dim num As Integer = 0 num = System.Windows.Forms.InputLanguage.InstalledInputLanguages.Count If num原创 2009-03-24 17:01:00 · 442 阅读 · 0 评论 -
窗体上画直线
Public Class Form1 Dim Bmp1 As Bitmap Dim IsDown As Boolean = False Dim myPen As New Pen(Color.GreenYellow, 2) Dim arrayLine(,) As Point Dim pLine1, pLine2 As Point Dim countLine,转载 2009-03-26 11:04:00 · 723 阅读 · 0 评论