vb.net中的输出方法,vb数据的输入与输出

vb.net 输出 excel

这里有段VB6.0的,你可以参考。

成都创新互联专注于长沙网站建设服务及定制,我们拥有丰富的企业做网站经验。 热诚为您提供长沙营销型网站建设,长沙网站制作、长沙网页设计、长沙网站官网定制、小程序设计服务,打造长沙网络公司原创品牌,更为您提供长沙网站排名全网营销落地服务。

注意添加引用。

Private Sub Command6_Click()

Dim i, j As Integer

Dim xlApplication As Excel.Application, xlWorkbook As Excel.Workbook, xlSheet

Dim xlApp As Excel.Application

On Error Resume Next

Set xlApplication = GetObject(, "Excel.Application")

Set xlApp = CreateObject("Excel.Application")

If MsgBox("确认将文件信息导出到EXCEL中?�", vbExclamation + vbYesNo, "警告") = vbYes Then

If Err.Number 0 Then Set xlApplication = CreateObject("Excel.Application")

Set xlWorkbook = xlApplication.Workbooks.Add

Set xlSheet = xlWorkbook.ActiveSheet

xlSheet.Cells(1, 2) = lblcl.Caption

xlSheet.Range("A1:E1").MergeCells = True

xlSheet.Range("A1:E1").HorizontalAlignment = xlCenter

xlSheet.Cells(2, 2).ColumnWidth = 18

For i = 1 To DataGrid1.Columns.Count

xlSheet.Cells(2, 1) = "编号"

xlSheet.Cells(2, i + 1) = DataGrid1.Columns(i).Caption

For j = 0 To DataGrid1.VisibleRows - 1

xlSheet.Cells(j + 3, 1) = j + 1

xlSheet.Cells(j + 3, i + 1) = DataGrid1.Columns(i).CellText(DataGrid1.RowBookmark(j))

Next j

Next i

xlApplication.Visible = True

Set xlSheet = Nothing

Set xlWorkbook = Nothing

Set xlApplication = Nothing

'xlApp.Range("A2:L2").Columns.Interior.ColorIndex = 40

'xlApp.Range("A2:L2").Borders.LineStyle = xlContinuous

'xlApp.Visible = True

'xlApp.Range(xlSheet.Cells(2 + PartsRs.RecordCount + 1, 1), xlSheet.Cells(2 + PartsRs.RecordCount + 1, 8)).Columns.Interior.ColorIndex = 40

'xlApp.Range(xlSheet.Cells(2 + PartsRs.RecordCount + 1, 1), xlSheet.Cells(2 + PartsRs.RecordCount + 1, 8)).Borders.LineStyle = xlContinuous

Else

MsgBox "无信息可供您导出,请确认!", vbExclamation + vbOKOnly, "警告"

End If

End Sub

vb.net 如何实现输出一串字符串中的所有字符以及每个字符的出现次数?

使用一个单重的循环扫描这个字符串中的所有字符,对每一个字符的出现次数进行统计,最后输出每个字符的出现次数。

Private Sub Command1_Click()

s = InputBox("请输入一个英文字符串:")

Dim a(128) As Integer

For i = 1 To Len(s)

t = Asc(Mid(s, i, 1))

a(t) = a(t) + 1

Next i

For i = 1 To 127

If a(i) 0 Then Print Chr(i); ":"; a(i)

Next i

End Sub

VB.NET中怎么 调试输出 返回值啊??

例如你用msgbox,你在输入这个函数的参数的时候会有个提示框弹出来,里面有每个参数的类型已经这个函数的返回值类型,

你可以记下来返回值的类型msgbox的是Microsoft.VisualBasic.MsgBoxResult

然后你按下F2

输入MsgBoxResult去搜索(不知道为什么搜索Microsoft.VisualBasic.MsgBoxResult没有结果)

可以看到MsgBoxResult的方法,函数和枚举项,枚举项就是你要的东西.自己看

其实你还可以直接就F2然后搜索MSGBOX,会得到这个函数的详细讯息,返回值有哪些结果也会得到.

多看看MSDN如果没装

按F2多看看对象浏览器

你可以得到很多答案

vb.net中如何在文本框中输出一个文件中两*间的文本

方法1:

Open "c:\1.txt" For Output As #1 'c:\1.txt为保存文件

Print #1, Text1 Text2 Text3 ..... '将多个文本框内容用合并在一起 写入内容

Close #1 '关闭文件

方法2:

Dim aa As String

aa =Text1 Text2 Text3 ..... '将多个文本框内容用合并到变量aa

Open "c:\1.txt" For Output As #1 'c:\1.txt为保存文件

Print #1, aa '写入内容

Close #1 '关闭文件

vb.net输出数组

1.你说的这个有点问题,是要只输出一次,也可做,

2.但问题是如果你数组还有就看不到了!这个做法有点问题

1.解决方法:

循环前面加入一个变量 dim Temp as Double=0

For i = 0 To 9

If score(i) avg and score(i)temp Then

TextBox3.Text = TextBox3.Text score(i) " "

if score(i)=avg then

temp=score(i)

end if

End If

Next

在vb.net中怎么把一个字符串怎么输出到当前计算机桌面上显示呢

在vb2008下,form具有TransparencyKey属性,将窗体的背景色和TransparencyKey颜色设置一致时,窗体会完全透明,显示文字时,给文字不同的颜色,文字会直接显示当前屏幕之上设置form1属性,TransparencyKey=黑色,BackColor=黑色 绘制窗体的代码,给文字以不同颜色 Private Sub Form1_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Me.Paint

e.Graphics.DrawString("你好", New Font("黑体", 60, FontStyle.Bold), Brushes.Blue, 0, 0)

End Sub 可以设置窗体置顶属性,永远前端显示也可以显示在桌面,用setparent,父窗体为桌面


网页名称:vb.net中的输出方法,vb数据的输入与输出
当前URL:http://scjbc.cn/article/hsgdds.html

其他资讯