vb.ney操作word winform 自定义控件
vb.net 操作word问题 求大神
在专业论坛上找了一个：Sub Macro1()Dim p$, f$, s$, a, arr, brr(1 To 6000, 1 To 20), d As Object, i&, l&, m&Set d = CreateObject(＂scripting.dictionary＂)a = Array(＂aaa＂， ＂身份证号码＂， ＂年龄＂， ＂姓名＂， ＂性别＂， ＂工作＂， ＂职业＂， ＂兴趣＂， ＂住址＂)For i = 1 To UBound(a)d(a(i)) = iNextp = ThisWorkbook.Path & ＂\＂With CreateObject(＂word.application＂).Visible = Falsef = Dir(p & ＂*.doc＂)Do While f ＂＂.Documents.Open p & fFor l = 1 To .ActiveDocument.Tables.CountWith .ActiveDocument.Tables(l)For i = 1 To .Rows.Counts = Replace(.Cell(i, 1).Range.Text, Chr(7), ＂＂)s = Left(s, Len(s) - 1)If d.Exists(s) Then brr(m + d(s), 2) = Replace(.Cell(i, 2).Range.Text, Chr(7), ＂＂)NextFor i = 1 To 8brr(m + i, 1) = a(i)NextEnd Withm = m + 9Next.ActiveDocument.Closef = DirLoop.QuitEnd WithSet MyWord = NothingActiveSheet.UsedRange.ClearContents[a1].Resize(m, 2) = brrEnd Sub
vb.net操作word
将WDApp.wdParagraph直接修改成数值4，也就是变成 Unit:=4 试试看！同时将后面的：Alignment:=WDAPP.wdAlignTabRight改成：Alignment:=2， 将Leader:=WDAPP.wdTabLeaderDashes改成： Leader:=2如果今后遇到这种问题，直接打开Word，然后sub xx() msgbox wdParagraphend sub就可以得到wdParagraph的真实值。
...
vb.net怎么使用表格控件
放一个DataGridView1和Button1到窗体，下面是按钮下代码 Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.DataGridView1.Columns(0).Width = 300 End Sub" & i.ToString) Me.DataGridView1.Rows.Height = 200 DataGridView1.AllowUserToAddRows = False DataGridView1， ＂列".Click Me; & i.ToString.DataGridView1.Width = 500 Me.DataGridView1.RowTemplateDataGridView控件.None For i = 1 To 3 Me.DataGridView1.Columns.Add（＂列".Add() Next Me.Columns(0).Width = 100 Me.DataGridView1.Columns(1).AutoSizeRowsMode = DataGridViewAutoSizeRowsMode...
VB.net怎么添加引用word
试了好久，终于试出来了，把代码发给你分享：首先，我建了个窗体，放了一个按扭控件，把打开连接EXECL的代码都放在该按扭的click事件里了，你可以根据需要改动。
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.ClickDim sConnectionString As String = ＂Provider=Microsoft.Jet.OLEDB.4.0;＂ _& ＂Data Source=E:\myexl.xls;＂ & _＂Extended Properties=Excel 8.0;＂"这里面，E:\myexl.xls换成你自己的excel文件完整路径Dim objConn As New OleDbConnection(sConnectionString)objConn.Open()MsgBox（＂成功打开连接＂） "这句我用来测试能不能连接的，"下面将建立查询命令Dim objCmdSelect As New OleDbCommand(＂SELECT * FROM [11$] where 姓名="李三"＂， objConn)"11j是我测试用的sheet名，你换成你自己的，注意格式"程序默认Excel表的第一行内容为字段名，你换成你自己的内容，并建"立查询条件"下面将根据查询条件打开连接。
Dim objAdapter1 As New OleDbDataAdapter()objAdapter1.SelectCommand = objCmdSelect"下面将打开的数据放在dataset中Dim objDataset1 As New DataSet()objAdapter1.Fill(objDataset1, ＂XLData＂)"下面将数据传给DataGrid1控件DataGrid1.DataSource = objDataset1.Tables(0).DefaultView" Clean up objects.objConn.Close()End Sub
VB.NET如何操作条码扫描枪,如何设置,如何进行条形码的设置及打...
Imports System Imports System.IO.Ports Public Class Form1 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load "获取计算机有效串口 Dim ports As String() = SerialPort.GetPortNames（) "必须用命名空间，用SerialPort，获取计算机的有效串口 Dim port As String For Each port In ports portnamebox.Items.Add(port) "向combobox中添加项 Next port "初始化界面 baudratebox.SelectedIndex() = 2 portnamebox.SelectedIndex() = 0 Serial_Port1（) "初始化串口 Label3.Text = SerialPort1.IsOpen statuslabel.Text = ＂串口未连接＂ statuslabel.ForeColor = Color.Red sendbox.Text = ＂123＂ " baudratebox.Text = baudratebox.Items(0) 注释和不注释的地方可以替换 "portnamebox.Text = portnamebox.Items(0) End Sub Private Sub Serial_Port1（) "设置串口参数 SerialPort1.BaudRate = Val(baudratebox.Text) "波特率 SerialPort1.PortName = portnamebox.Text "串口名称 SerialPort1.DataBits = 8 "数据位 SerialPort1.StopBits = IO.Ports.StopBits.One "停止位 SerialPort1.Parity = IO.Ports.Parity.None "校验位 End Sub "关闭串口连接 Private Sub closebtn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles closebtn.Click Try SerialPort1.Close（) "关闭串口 Label3.Text = SerialPort1.IsOpen If SerialPort1.IsOpen = False Then statuslabel.Text = ＂串口未连接＂ statuslabel.ForeColor = Color.Red receivebox.Text = ＂＂ receivebytes.Text = ＂＂ End If Catch ex As Exception MessageBox.Show(ex.Message) End Try End Sub "打开串口连接 Private Sub openbtn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles openbtn.Click Try SerialPort1.Open（) "打开串口 Label3.Text = SerialPort1.IsOpen If SerialPort1.IsOpen = True Then statuslabel.Text = ＂串口已连接＂ statuslabel.ForeColor = Color.Green End If Catch ex As Exception MessageBox.Show(ex.Message) End Try End Sub "发送数据 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Try SerialPort1.Write(sendbox.Text) Catch ex As Exception MessageBox.Show(ex.Message) End Try End Sub "触发接收事件 Public Sub Sp_DataReceived(ByVal sender As Object, ByVal e As System.IO.Ports.SerialDataReceivedEventArgs) Handles SerialPort1.DataReceived Me.Invoke(New EventHandler(AddressOf Sp_Receiving)） "调用接收数据函数 End Sub "接收数据 Private Sub Sp_Receiving(ByVal sender As Object, ByVal e As EventArgs) Dim strIncoming As String Try receivebytes.Text = Str(Val(receivebytes.Text) + SerialPort1.BytesToRead) If SerialPort1.BytesToRead > 0 Then Threading.Thread.Sleep(100) "添加的延时 strIncoming = SerialPort1.ReadExisting.ToString "读取缓冲区中的数据 SerialPort1.DiscardInBuffer() receivebox.Text = strIncoming End If Catch ex As Exception MessageBox.Show(ex.Message) End Try End Sub End Class
vb.net 2010 调用word程序 打开一个word文档
SqlConnection conn = new SqlConnection(System.Configuration.ConfigurationSettings.AppSettings[＂ConnectionString＂]);SqlCommand cmd = new SqlCommand();cmd.Connection = conn;cmd.CommandText = ＂select * from test＂;//在线连接command必须要打开连接，速度快，结省资源conn.Open();SqlDataReader dr = cmd.ExecuteReader(CommandBehavior.CloseConnection);while(dr.Read()){Response.Write(dr.GetValue(0));}dr.Close();conn.Close();========================================SqlDataAdapter da = new SqlDataAdapter(＂select * from test＂,conn);DataSet ds = new DataSet();//断线连接不需要OpenConnectio,Fill数据到DataSet中，可以进行再操作，灵活性大da.Fill(ds);for(int i=0;i{Response.Write(ds[i][＂name＂].ToString());}
-