vb点虐 文本 vbnet trim
vb点虐 textbox1选中的文本，拖放到textbox2？
很久没有上这里了，今天看到了这个问题，尝试做了一个；
成都创新互联公司是一家专业提供宝丰企业网站建设,专注与网站制作、网站设计、H5技术、小程序制作等业务。10年已为宝丰众多企业、政府机构等服务。创新互联专业网站建设公司优惠进行中。
本例以源文本框TextBox1全部文字作为拖放文字为例，实现拖放
1、向一个窗体中添加两个文本框，分别名为TextBox1，TextBox2。注意：把TextBox2控件的AllowDrop属性设置成True，这点不要遗漏。
2、完整的代码如下：
Public Class Form1
Private MouseIsDown As Boolean = False
Private Sub TextBox1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles TextBox1.MouseDown
'设置一个标志以显示鼠标已按下。
MouseIsDown = True
End Sub
Private Sub TextBox1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles TextBox1.MouseMove
If MouseIsDown Then
'开始拖动（将TextBox1的文本内容作为拖放内容）。
TextBox1.DoDragDrop(TextBox1.Text, DragDropEffects.Copy)
End If
MouseIsDown = False
End Sub
Private Sub TextBox2_DragEnter(ByVal sender As Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles TextBox2.DragEnter
'检查正在被拖放的数据的格式。
If (e.Data.GetDataPresent(DataFormats.Text)) Then
'显示复制光标（表示是拖放行为）。
e.Effect = DragDropEffects.Copy
Else
'显示不放置光标（表示不是拖放行为）。
e.Effect = DragDropEffects.None
End If
End Sub
Private Sub TextBox2_DragDrop(ByVal sender As Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles TextBox2.DragDrop
'粘贴文本（将拖放内容作为TextBox2的文本内容）。
TextBox2.Text = e.Data.GetData(DataFormats.Text)
End Sub
End Class
vb点虐 保存两个文本框
1、首先，点击保存按钮后应检查文本框内容。
2其次，如果在文本框4中输入的值以400开头则保存反之更改为400。
3、最后，再次检查文本框5如果文本框5中的值为29或31则保存反之则更改即可。
VB点虐 读取文本文件？
1、实现上传按钮方法代码。
2、判断图片对象是否为空代码。
3、取得数据库字段 dt.Rows(0)("Pic")方法代码。
4、字节数组转换为Image类型方法代码。
5、处理SQL中操作Image类型方法代码。
6、实现的上传结果。
VB点虐 读取文本文件
Imports System.IO
Public Class Form1
Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
Dim sr As New StreamReader("d:\test.csv")
Dim arr1(), arr2(), arr3(), arr4() As Integer
Dim a1, a2, a3, a4 As New ArrayList
Do Until sr.EndOfStream
Dim str As String = sr.ReadLine
Dim s() As String = str.Split(",")
a1.Add(Convert.ToInt32(s(0)))
a2.Add(Convert.ToInt32(s(1)))
a3.Add(Convert.ToInt32(s(2)))
a4.Add(Convert.ToInt32(s(3)))
ListBox1.Items.Add(s(0))
Loop
arr1 = CType(a1.ToArray(GetType(Integer)), Integer())
arr2 = CType(a2.ToArray(GetType(Integer)), Integer())
arr3 = CType(a3.ToArray(GetType(Integer)), Integer())
arr4 = CType(a4.ToArray(GetType(Integer)), Integer())
sr.Close()
End Sub
End Class
分享文章：vb点虐 文本 vbnet trim
URL分享：http://shouzuofang.com/article/ddseosd.html