如何对Vb.net进行漂亮的XML注释

在紧挨着类或成员的上一行打三个单引号，自动生成XML注释。

你可以使用para来换行。

使用see cref来标明参考项。

如何把下面的C#代码转换为VB.NET或者加个注解，新手看不明白？

Dim obj = file15.GetThumbnail2(version)

Dim imgPreview As System.Drawing.Image = PictureDispConverter.Convert(obj)

imgPreview.Save("C:\temp\123456.bmp", System.Drawing.Imaging.ImageFormat.Bmp)

imgPreview.Dispose()

Public Class PictureDispConverter

Inherits AxHost

Public Sub New()

MyBase.New("56174C86-1546-4778-8EE6-B6AC606875E7")

End Sub

Public Shared Function Convert(ByVal objIDispImage As Object) As System.Drawing.Image

Dim objPicture As System.Drawing.Image = Nothing

objPicture = CType(System.Windows.Forms.AxHost.GetPictureFromIPicture(objIDispImage), System.Drawing.Image)

Return objPicture

End Function

End Class

VB.NET怎么调用摄像头啊?求实例,最好配注释啊

Private Const WS_CHILD = H40000000

Private Const WS_VISIBLE = H10000000

Private Const WM_CAP_START = H400

Private Const WM_CAP_DRIVER_CONNECT = WM_CAP_START + 10

Private Const WM_CAP_SET_SCALE = WM_CAP_START + 53

Private Const WM_CAP_SET_PREVIEWRATE = WM_CAP_START + 52

Private Const WM_CAP_SET_PREVIEW = WM_CAP_START + 50

Private Declare Function capCreateCaptureWindowA Lib "avicap32.dll" ( _

ByVal lpszWindowName As String, _

ByVal dwStyle As Long, _

ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Integer, _

ByVal hWndParent As Long, ByVal nID As Long) As Long

Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Integer, ByVal lParam As Long) As Long

Private Sub Form_Load()

'建立采集窗口（不显示窗口，处理后显示到PIC控件）

uwndc = capCreateCaptureWindowA("", WS_VISIBLE Or WS_CHILD, 0, 0, 320, 240, Me.hWnd, 0)

'连接

SendMessage uwndc, WM_CAP_DRIVER_CONNECT, 0, 0

'Scale开

SendMessage uwndc, WM_CAP_SET_SCALE, True, 0

'显示刷新MS

SendMessage uwndc, WM_CAP_SET_PREVIEWRATE, 40, 0

'用予览方式显示(特殊需要，不显示予缆）

SendMessage uwndc, WM_CAP_SET_PREVIEW, True, 0

End Sub

上述代码就可以实现 但是要注意相应的控件是否存在 不存在的 你自己画出来

VB.NET能够多行注释吗？求高手

Dim clh As ColumnHeader '声明列表头

Dim rs As New ADODB.Recordset '声明一个变量

lv.ColumnHeaders.Clear’Lv清空列表头

lv.ListItems.Clear '清空列表

lv.GridLines = True '显示格线

lv.FullRowSelect = True '整行选择模式

lv.View = lvwReport ’设置视图为列表视图

rs.Open "select * from 入库", Cnn '运行查询

For i = 0 To rs.Fields.Count - 1 ’for循环，所有记录表的字段

Set clh = lv.ColumnHeaders.Add(, , rs.Fields(i).Name) ’添加列表头与rs字段相同的名字

Next

lv.GridLines = True ’显示网格

lv.FullRowSelect = True ’整行模式选择

lv.View = lvwReport ’设置视图为列表视图

Set RsPage = rs ’复制rs

RsPage.PageSize = 40 ’每页显示40个记录

Label5.Caption = RsPage.PageCount ’显示页的数量

If rs.EOF = True Then ’判断是记录的结束

Label7.Caption = 0 ’显示0

Label5.Caption = 0 ’显示0

For i = 1 To 4

Label1(i).Enabled = False ’禁用标签1-4

Next

Else '判断不是记录的结束

Label7.Caption = 1 ’显示1

RsPage.MoveFirst '移到第一个记录

Call ShowPage(RsPage, 1) ’显示第一页

End If

End Sub

Private Sub ShowPage(rs As Recordset, nPage As Integer)

rs.AbsolutePage = nPage '显示参数nPage页

lv.ListItems.Clear '列表清空

Dim item As ListItem ’声明列表

For i = 1 To 40

If rs.EOF = True Then Exit Sub ’判断是记录的结束，退出函数

Set item = lv.ListItems.Add(, , Trim(rs.Fields(0).Value)) ’添加列表行，0字段的值

For j = 1 To rs.Fields.Count - 1

item.SubItems(j) = IIf(IsNull(rs.Fields(j)), "", Trim(rs.Fields(j))) ’填写行的其他字段

Next

rs.MoveNext '移到下一个记录

Next

End Sub

Private Sub Command2_Click()

If Text2.Text "" Then

FrmPJsy.Show 'text2得值不为空时，FrmPJsy显示

End If

End Sub

Private Sub lv_Click()

If lv.ListItems.Count = 1 Then ’如果行数不小于1

For i = 1 To lv.ListItems.Count

If lv.ListItems(i).Selected Then ’ 显示记录的每一段的内容

Text1(6).Text = Trim(lv.ListItems(i).Text)

Text1(0).Text = Trim(lv.ListItems(i).SubItems(1))

Text1(1).Text = Trim(lv.ListItems(i).SubItems(2))

Text1(2).Text = Trim(lv.ListItems(i).SubItems(3))

Text1(3).Text = Trim(lv.ListItems(i).SubItems(4))

Text1(4).Text = Trim(lv.ListItems(i).SubItems(5))

Text1(5).Text = Trim(lv.ListItems(i).SubItems(6))

DTPicker1.Value = Trim(lv.ListItems(i).SubItems(7))

Text1(7).Text = Trim(lv.ListItems(i).SubItems(8))

Command1(1).Enabled = True ’按钮可以使用

Command1(2).Enabled = True

End If

Next

End If

End Sub

vb.net求注解

你这个不是VB.NET代码，是VB6的

Text2.Text = "" '清空文本框

Dim strlen As Long

Dim i, j As Long

Dim num() As Variant

Dim sn() As Integer

strlen = Len(Text1.Text) ' 获取文本长度

ReDim num(strlen) '重定义数组大小

ReDim sn(strlen)

For i = 1 To strlen

num(i) = Mid(Text1.Text, i, 1) '将文本框的文字分成一个一个的文字赋值给数组

Randomize

restart: sn(i) = CInt((Rnd * (strlen - 1)) + 1) '随机取一个字

For j = 1 To strlen

If i = j Then GoTo jump '从这里乱了，跳来跳去，只有新手才会这样写程序

If sn(j) = sn(i) Then

GoTo restart '程序不能这么写，肯定会出错！

End If

jump: Next j

Next i

For i = 1 To strlen

Text2.Text = Text2.Text + num(sn(i)) '文本框的文字顺序随机排了一下

Next i

End Sub

vb.net注解的介绍就聊到这里吧，感谢你花时间阅读本站内容，更多关于vb的注释符号、vb.net注解的信息别忘了在本站进行查找喔。

标签：下建MallProftpdUsercontrl加盖飙涨Exception1本科生盘古STAMP