- 博客(11)
- 收藏
- 关注
RSS订阅原创 ADO.NET 查找是否存在表，若存在，删除新建
Imports System.Data.SqlClient Public 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
9247
原创 ADO.NET 连接Access
Method 1： Imports System.Data.OleDb Public 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
435
原创 Regex正则表达式--合法数字
Imports System.Text.RegularExpressions Public 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
613
原创 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
335
原创 显示无数据源的Chart对数表
Imports System.Math Imports System.Windows.Forms.DataVisualization.Charting Public Class Form1 Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click Dim fs As...
2020-04-23 18:09:38
534
原创 combine Two Pictures
Imports System.Drawing.Imaging Public 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
182
原创 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
215
原创 手动给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
629
原创 获取网页源代码
https://social.msdn.microsoft.com/Forums/en-US/796a87dd-5692-4df6-95f1-c191beb794d4/help-get-html-source-code-chrome?forum=vbgeneral Imports System.Net Imports System.Text Public Class Form1 Priv...
2020-03-19 17:13:22
724
原创 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
206
原创 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
217
空空如也
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人