VB.NET怎么单行注释与多行注释 VB.NET能够多行注释吗？求高手
vb.net \u4e2d\u6709\u51e0\u79cd\u6ce8\u91ca\uff1f\uff1f\u6709\u591a\u884c\u6ce8\u91ca\u5417\uff1f\u9996\u5148\u9009\u53d6\u4f60\u8981\u6ce8\u91ca\u7684\u6587\u672c\u5757\uff0c\u7136\u540eCtrl-K Ctrl-C \u8fd9\u6837\u5bf9\u4f60\u9009\u62e9\u7684\u6587\u672c\u5757\u5b8c\u6210\u6ce8\u91ca\uff0e
\u800c\u5982\u679c\u4f60\u8981\u53d6\u6d88\u5df2\u5b8c\u6210\u6ce8\u91ca\u7684\u6587\u672c\u5757\uff0c\u5219Ctrl-K Ctrl-U\u5373\u53ef\u3002
Dim clh As ColumnHeader '\u58f0\u660e\u5217\u8868\u5934
Dim rs As New ADODB.Recordset '\u58f0\u660e\u4e00\u4e2a\u53d8\u91cf
lv.ColumnHeaders.Clear\u2019Lv\u6e05\u7a7a\u5217\u8868\u5934
lv.ListItems.Clear '\u6e05\u7a7a\u5217\u8868
lv.GridLines = True '\u663e\u793a\u683c\u7ebf
lv.FullRowSelect = True '\u6574\u884c\u9009\u62e9\u6a21\u5f0f
lv.View = lvwReport \u2019\u8bbe\u7f6e\u89c6\u56fe\u4e3a\u5217\u8868\u89c6\u56fe
rs.Open "select * from \u5165\u5e93", Cnn '\u8fd0\u884c\u67e5\u8be2
For i = 0 To rs.Fields.Count - 1 \u2019for\u5faa\u73af\uff0c\u6240\u6709\u8bb0\u5f55\u8868\u7684\u5b57\u6bb5
Set clh = lv.ColumnHeaders.Add(, , rs.Fields(i).Name) \u2019\u6dfb\u52a0\u5217\u8868\u5934\u4e0ers\u5b57\u6bb5\u76f8\u540c\u7684\u540d\u5b57
Next
lv.GridLines = True \u2019\u663e\u793a\u7f51\u683c
lv.FullRowSelect = True \u2019\u6574\u884c\u6a21\u5f0f\u9009\u62e9
lv.View = lvwReport \u2019\u8bbe\u7f6e\u89c6\u56fe\u4e3a\u5217\u8868\u89c6\u56fe
Set RsPage = rs \u2019\u590d\u5236rs
RsPage.PageSize = 40 \u2019\u6bcf\u9875\u663e\u793a40\u4e2a\u8bb0\u5f55
Label5.Caption = RsPage.PageCount \u2019\u663e\u793a\u9875\u7684\u6570\u91cf
If rs.EOF = True Then \u2019\u5224\u65ad\u662f\u8bb0\u5f55\u7684\u7ed3\u675f
Label7.Caption = 0 \u2019\u663e\u793a0
Label5.Caption = 0 \u2019\u663e\u793a0
For i = 1 To 4
Label1(i).Enabled = False \u2019\u7981\u7528\u6807\u7b7e1-4
Next
Else '\u5224\u65ad\u4e0d\u662f\u8bb0\u5f55\u7684\u7ed3\u675f
Label7.Caption = 1 \u2019\u663e\u793a1
RsPage.MoveFirst '\u79fb\u5230\u7b2c\u4e00\u4e2a\u8bb0\u5f55
Call ShowPage(RsPage, 1) \u2019\u663e\u793a\u7b2c\u4e00\u9875
End If
End Sub
Private Sub ShowPage(rs As Recordset, nPage As Integer)
rs.AbsolutePage = nPage '\u663e\u793a\u53c2\u6570nPage\u9875
lv.ListItems.Clear '\u5217\u8868\u6e05\u7a7a
Dim item As ListItem \u2019\u58f0\u660e\u5217\u8868
For i = 1 To 40
If rs.EOF = True Then Exit Sub \u2019\u5224\u65ad\u662f\u8bb0\u5f55\u7684\u7ed3\u675f\uff0c\u9000\u51fa\u51fd\u6570
Set item = lv.ListItems.Add(, , Trim(rs.Fields(0).Value)) \u2019\u6dfb\u52a0\u5217\u8868\u884c\uff0c0\u5b57\u6bb5\u7684\u503c
For j = 1 To rs.Fields.Count - 1
item.SubItems(j) = IIf(IsNull(rs.Fields(j)), "", Trim(rs.Fields(j))) \u2019\u586b\u5199\u884c\u7684\u5176\u4ed6\u5b57\u6bb5
Next
rs.MoveNext '\u79fb\u5230\u4e0b\u4e00\u4e2a\u8bb0\u5f55
Next
End Sub
Private Sub Command2_Click()
If Text2.Text <> "" Then
FrmPJsy.Show 'text2\u5f97\u503c\u4e0d\u4e3a\u7a7a\u65f6\uff0cFrmPJsy\u663e\u793a
End If
End Sub
Private Sub lv_Click()
If lv.ListItems.Count >= 1 Then \u2019\u5982\u679c\u884c\u6570\u4e0d\u5c0f\u4e8e1
For i = 1 To lv.ListItems.Count
If lv.ListItems(i).Selected Then \u2019 \u663e\u793a\u8bb0\u5f55\u7684\u6bcf\u4e00\u6bb5\u7684\u5185\u5bb9
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 \u2019\u6309\u94ae\u53ef\u4ee5\u4f7f\u7528
Command1(2).Enabled = True
End If
Next
End If
End Sub
每行前都需要单引号
绛旓細閫変腑闇瑕娉ㄩ噴鐨勯儴鍒嗭紝鐐瑰伐鍏锋爮閲岀殑鈥滄敞閲娾濇寜閽
绛旓細棣栧厛閫夊彇浣犺娉ㄩ噴鐨勬枃鏈潡锛岀劧鍚嶤trl-K Ctrl-C 杩欐牱瀵逛綘閫夋嫨鐨勬枃鏈潡瀹屾垚娉ㄩ噴锛庤屽鏋滀綘瑕佸彇娑堝凡瀹屾垚娉ㄩ噴鐨勬枃鏈潡锛屽垯Ctrl-K Ctrl-U鍗冲彲銆
绛旓細so we break ' it into two lines. Some comments might need three or more lines. 閫氳繃閫夋嫨涓琛屾垨澶氳浠ｇ爜锛岀劧鍚庡湪鈥滅紪杈戔濆伐鍏锋爮涓婇夋嫨鈥娉ㄩ噴鈥濇寜閽拰鈥滃彇娑堟敞閲娾濇寜閽紝鍙互娣诲姞鎴栫Щ闄ゆ煇娈典唬鐮佺殑娉ㄩ噴绗︺備篃
绛旓細琛屾敞閲锛//杩欓噷鏄敞閲 鍧楁敞閲婏細/*杩欓噷鏄敞閲*/ 鎵╁睍鍚嶏細.java .net dotnet is not a language!is a platform.vb.net 琛屾敞閲婏細'杩欓噷鏄敞閲 鍧楁敞閲婏細none xml娉ㄩ噴锛///杩欓噷鏄痻ml娉ㄩ噴 鎵╁睍鍚嶏細.vb perl 琛屾敞閲婏細#杩欓噷鏄敞閲 鍧楁敞閲婏細none 鎵╁睍鍚嶏細.pm c 琛屾敞閲婏細//杩欓噷鏄敞閲 鍧楁敞閲婏細/*...
绛旓細鍙互鏄剧ず澶氳鏂囨湰銆傚鏋淢ultiline灞炴ц缃负true,閫氬父涔熸妸WordWrap涔熻缃负true PasswordChar 鎸囧畾鏄惁鐢ㄥ瘑鐮佸瓧绗︽浛鎹㈠湪鍗曡鏂囨湰妗嗕腑杈撳叆鐨勫瓧绗︺傚鏋淢ultiline 灞炴т负true,杩欎釜灞炴у氨涓嶈捣浣滅敤 ReadOnly 杩欎釜Boolean鍊艰〃绀烘枃鏈槸鍚︿负鍙 ScrollBars 鎸囧畾澶氳鏂囨湰妗嗘槸鍚︽樉绀烘粴鍔ㄦ潯 SelectedText 鍦ㄦ枃鏈涓夋嫨鐨勬枃鏈 ...
绛旓細鍏堢湅鏂囦欢寮濮嬬殑涓よ浠ｇ爜,杩欐槸C#璇█鐨勫崟琛屾敞閲婅鍙ャ傚拰C++璇█绫讳技,C#鏀寔涓ょ娉ㄩ噴鏂规硶:浠"//"寮濮嬬殑鍗曡娉ㄩ噴鍜浠"/*","*/"閰嶅浣跨敤鐨澶氳娉ㄩ噴銆傛敞閲婁箣闂翠笉鑳藉祵濂椼 鍐嶆潵鐪嬩笅闈㈢殑"using System;"璇彞,杩欐槸C#璇█鐨剈sing鍛藉悕绌洪棿鎸囩ず绗,杩欓噷鐨"System"鏄疢icrosoft.NET绯荤粺鎻愪緵鐨勭被搴撱侰#璇█娌℃湁鑷繁鐨勮瑷绫诲簱...
绛旓細绗竴琛,琛ㄦ槑ASP浣跨敤鐨勬槸VB鑴氭湰绗簩琛,鏄敤include鍖呭惈鏂囦欢,杩欓噷鍖呭惈鐨勬槸鏁版嵁搴撹繛鎺ユ枃浠躲傜涓夎,ASP绋嬪簭寮濮嬬鍥涜,鍒╃敤Server鍐呯疆瀵硅薄鍒涘缓涓涓褰曢泦绗簲琛, SQL璇彞,杩欓噷鐨勬剰鎬濇槸閫夋嫨鏁版嵁搴撲腑鐨剈ser,qq,email,content,data瀛楁,鎸囧畾璇ユ暟鎹〃鐨勫悕绉版槸鈥渕ain鈥濇暟鎹 鐨勬帓鍒楅『搴忔槸鍊掑簭銆傜鍏,鐢ㄥ垰鎵嶅垱寤虹殑鍚嶄负...
绛旓細VB.NET鏄...涓棿瑙ｉ噴鎬ц瑷鈥滐紝杩欑璇存硶鏋佷笉鍑嗙‘锛岀敋鑷冲畬鍏ㄩ敊璇傚彲鑳藉師缂栬緫鑰呮槸鎸囩殑缂栬瘧鍣ㄤ細鍏堝皢婧愮爜缈昏瘧鎴怣SIL(Microsoft Intermediate Language)涓棿璇█杩欏洖浜,浣嗚繖鍜屸濊В閲婃ц瑷鈥滄湁寰堝ぇ宸埆銆 绠楁湳杩愮畻绗︼細/锛堥櫎锛夛紝\锛堟暣闄わ級,Mod锛堝彇妯★級 涓茶仈杩愮畻绗︼細&锛+浜﹀彲 閫昏緫/鎸変綅杩愮畻绗︼細Not銆...
绛旓細闈欐佺綉椤典腑涔熷彲浠ユ湁VBS鎴朖S鑴氭湰锛屽畠浠彧鏄墠鍙扮殑銆侫SP涓棦鍙互鐢╒BS涔熷彲浠S锛屽彧涓嶈繃閫氬父澶ч儴鍒嗕汉鐢╒BS缃簡锛屽畠浠槸鍚庡彴鐨勩侾HP涓嶤璇硶鍑犱箮鐩稿悓锛屽叾瀹炰笌JS涔熷嚑涔庣浉鍚岋紝閮藉緢鎺ヨ繎 浣犺鍋氱綉绔欒瀛︿範ASP锛堟湁鐐硅惤鍚庝簡锛屼笉杩囧叆闂ㄨ緝瀹规槗锛夋垨PHP鎴朖SP鎴朅SP.net(鍙互瀛VB.net涔熷彲浠ュC#.net锛変腑鐨勮嚦灏戜竴鏍枫...
