VB
VB
QF_
这个作者很懒,什么都没留下…
展开
-
vb.net获取txt某段字符后的字符
Dim tline As String FileOpen(1, "文本.txt", OpenMode.Input) Do Until EOF(1) tline = LineInput(1) If InStr(tline, "姓名:") Then Label1.Text = (Replace(tline, "姓名转载 2014-05-06 19:00:23 · 1796 阅读 · 0 评论 -
VB.NET自定义标题栏拖动
'_____________________以下拖为动窗体代码,添加一个panel容器________________________ '定义4个变量,分别保存鼠标单击后和移动过程中的坐标(注意,这里的坐标是相对于窗体的) Dim x1, x2, y1, y2 As Integer '鼠标左按下后将x1,y1赋值 Private Sub Panel1_M原创 2014-04-29 10:13:24 · 977 阅读 · 0 评论