VB点虐 文本框作图 vb中文本框的keypress

vb点虐 中的shell函数问题

我已经完整在我博客回答了请自己看吧。

成都创新互联公司，专注为中小企业提供官网建设、营销型网站制作、成都响应式网站建设公司、展示型网站设计、做网站等服务，帮助中小企业通过网站体现价值、有效益。帮助企业快速建站、解决网站建设与网站营销推广问题。

代码如下：

再上代码

Imports System.Data.OleDb

Public Class Form1

Inherits System.Windows.Forms.Form

Private strConnect As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=updPro.mdb"

Private oleDBconn As New OleDb.OleDbConnection(strConnect)

Private cmd As New OleDbCommand

'检索路径填充到TEXTBOX2

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim strsql As String

Try

strsql = "select * from 程序路径表 where 程序名称='" Me.TextBox1.Text.Trim "'"

cmd.Connection = oleDBconn

cmd.CommandText = strsql

If Not oleDBconn.State = ConnectionState.Open Then

oleDBconn.Open()

End If

cmd.ExecuteNonQuery()

Dim dtset As New DataSet

Dim oDataAda As New OleDb.OleDbDataAdapter(cmd)

oDataAda.Fill(dtset, "程序路径表")

oleDBconn.Close()

Me.TextBox2.Text = dtset.Tables("程序路径表").Rows(0)("程序路径")

Catch ex As Exception

End Try

End Sub

'shell 启动程序

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

Try

System.Diagnostics.Process.Start(TextBox2.Text.Trim)

Catch ex As Exception

End Try

End Sub

vb点虐 读取txt的数据作图问题

一、分析：

1，这一类随时间而变化的曲线图，通常把横轴作为时间，把纵轴作为相应的值，在这里就是密度值。

2，点的集合就是线；一组时间、密度值，对应一个点，把点连接起来就构成了线。

二、在VB.NET中作图，需要知道并解决几个问题：

1，与VB6一样，VB.NET中默认的坐标系统，左上角为坐标原点，X轴的正向为从左向右，Y轴的正向是从上向下。

为了使得它与数学中的坐标系统相一致，可以使用VB.NET中Graphics类的两个方法；

1、TranslateTransform----平移变换

格式：Graphics.TranslateTransform(dx,dy)

其中：dx 和 dy分别是Single数据类型

2、ScaleTransform----缩放变换

格式：Graphics.ScaleTransform(sx,sy)

其中：sx 和 sy分别是Single数据类型；

例如：为了符合数学中的一般格式，可以使用下述代码：

Graphics.ScaleTransform(1, -1)

这样就把Y轴的正方向给翻过来了。

三、VB.NET中绘制图形

1，绘制圆或椭圆

'绘制图形的三步曲

'1，获得一个Graphics对象

Dim MyGraphics As Graphics

MyGraphics = Me.CreateGraphics

'2，定义一个Pen对象，用于绘制图形（轮廓线）

Dim MyPen As New Pen(Color.Black)

'3，定义一个Brush对象，用于填充图形（如果需要填充的话）

Dim MyBrush As New SolidBrush(Color.Orange)

'绘制一个实心圆，该圆在：直线x=200，y=200，x=200+100，y=200+100所划的矩形区域内

MyGraphics.FillEllipse(Brush, 200, 200, 100, 100)

'绘制一个空心圆，该圆在：直线x=200，y=200，x=200+100，y=200+100所划的矩形区域内

MyGraphics.DrawEllipse(Pen, 200, 200, 100, 100)

注意：最后两个数值如果不等，就是绘制椭圆

当圆足够小，就是点了。

2，绘制直线

'1，获得一个Graphics对象

Dim MyGraphics As Graphics

MyGraphics = Me.CreateGraphics

'2，定义一个Pen对象，用于绘制图形（轮廓线）

Dim MyPen As New Pen(Color.Black)

MyGraphics.DrawLine(MyPen, 200, 200, 100, 100)

'或者直接用

Me.CreateGraphics.DrawLine(New Pen(Color.Black), 50, 50, 200, 200)

VB点虐 如何把文字转换为图片？

Dim bit As Bitmap=New Bitmap(textBox1.ClientRectangle.Width, _

textBox1.ClientRectangle.Height, _

System.Drawing.Imaging.PixelFormat.Format24bppRgb)

textBox1.DrawToBitmap(bit,textBox1.ClientRectangle)

pictureBox1.Image=bit

bit.Save("")'保存文件的路径

这是保存文本框内容的方法，保存余下内容的方法我还要点事件弄

VB点虐 中如何画图？

VB点虐 与VB不同。

VB点虐 已经有专门绘图的类。

可以定义笔刷然后用Drawing类中的方法绘制。

Private Sub DrawEllipse()

Dim myPen As New System.Drawing.Pen(System.Drawing.Color.Red)

Dim formGraphics as System.Drawing.Graphics

formGraphics = Me.CreateGraphics()

formGraphics.DrawEllipse(myPen, New Rectangle(0,0,200,300))

myPen.Dispose()

formGraphics.Dispose()

End Sub

Private Sub DrawRectangle()

Dim myPen As New System.Drawing.Pen(System.Drawing.Color.Red)

Dim formGraphics as System.Drawing.Graphics

formGraphics = Me.CreateGraphics()

formGraphics.DrawRectangle(myPen, New Rectangle(0,0,200,300))

myPen.Dispose()

formGraphics.Dispose()

End Sub