- 博客(11)
- 收藏
- 关注
RSS订阅原创 ADO.NET 查找是否存在表，若存在，删除新建
Imports System.Data.SqlClientPublic Class Form1 Public constr As String = "Data Source = (localdb)\MSSQLLocalDB; Integrated Security = True ;AttachDbFileName= D:\Database\Local Database\julietest0602.mdf" Public conn As SqlConnection Public s
2020-06-02 14:40:45
9228
原创 ADO.NET 连接Access
Method 1：Imports System.Data.OleDbPublic Class Form1 Dim constr As String = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=D:\Database\Access\Database3.mdb; User Id=admin; Password=" Dim conn As OleDbConnection Dim oda As OleDbDataAdapter
2020-06-01 12:52:03
389
原创 Regex正则表达式--合法数字
Imports System.Text.RegularExpressionsPublic Class Form1 Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click '1.3 GB '1.3gb '1gb Console.WriteLine("Pleasen input your entry:") Dim s
2020-06-01 12:25:25
589
原创 display math symbol and change size
Public Class Form1 Dim n As New Integer Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load n = 24 For n = 12 To 26 Step 2 ComboBox1.Items.Add(n) Next RichTextBox1.Font = New Fon
2020-06-01 12:17:31
313
原创 显示无数据源的Chart对数表
Imports System.MathImports System.Windows.Forms.DataVisualization.ChartingPublic Class Form1 Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click Dim fs As...
2020-04-23 18:09:38
502
原创 combine Two Pictures
Imports System.Drawing.ImagingPublic Class Form1 Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click Dim image1 As New Bitmap(PictureBox1.Image) Di...
2020-04-07 12:14:27
156
原创 Mix Two Pictures
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click Dim image1 As New Bitmap(PictureBox1.Image) Dim image2 As New Bitmap(PictureBox2.Image) Dim Im...
2020-04-07 10:01:54
195
原创 手动给DataGridView添加行和列+自动换行
Public Class Form1 Structure AssignRuns Shared batsman1A As String = "player1" Shared batsman1Aruns As Integer = 3 End Structure Private Sub Button1_Click(sender As Objec...
2020-04-06 15:27:15
587
原创 获取网页源代码
https://social.msdn.microsoft.com/Forums/en-US/796a87dd-5692-4df6-95f1-c191beb794d4/help-get-html-source-code-chrome?forum=vbgeneralImports System.NetImports System.TextPublic Class Form1 Priv...
2020-03-19 17:13:22
682
原创 LinkLabel小例子
创建超链接Public Class Form1 Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load Dim myLink As String = "http://google.com" LinkLabel1.Links.Add(0, myLink.Leng...
2020-03-19 10:03:34
180
原创 UserControl小例子
在UserControl中更改ComboBox的值Public Class UserControl1 Private Sub UserControl1_Load(sender As Object, e As EventArgs) Handles MyBase.Load ComboBox1.Text = "Apple" Me.BorderStyle = B...
2020-03-19 10:00:57
184
空空如也
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人