vbÈçºÎʵÏÖÒþ²ØlistviewijÁÐ
ÈçºÎÒþ²ØlistviewµÄÁпí,½«ÁпíÉèΪ0,µ«À¶¯ÁÐÓÖ»á³öÏÖ,ÓÐûÓа취¼´¿ÉÒÔÀ¶¯ÁпíÓÖ¿ÉÒÔÒþ²ØÄ³Áеķ½·¨
¿´¿´ÓÐûÓÐÀ¶¯ÁпíµÄʼþ£¬ÈçÓУ¬¿ÉÔڴ˽«Æä¿í¶ÈÉèΪ0
¡£listviewÃ²ËÆ²»ÐÐ,»»¿Ø¼þ
listview ÊÇ¿ÉÒÔµÄ
lvGift.ColumnHeaders.Add , "weiyi", "Ψһ", ¿í¶È £¨Îª0¼´Òþ²Ø£¬¿ÉÒÔÀ´ó£©
listview1.ColumnHeaders.Add , "weiyi", "Ψһ", ¿í¶È £¨Îª0¼´Òþ²Ø£¬¿ÉÒÔÀ´ó£©
¸ÄÕýÒ»ÏÂ
VB code:
Private Sub Form_Load()
ListView1.View = lvwReport
ListView1.Icons = ImageList1
ListView1.SmallIcons = ImageList1
ListView1.ColumnHeaderIcons = ImageList1
For I = 1 To 5
ListView1.ColumnHeaders.Add , , "µÚ" & I & "ÁÐ"
Next
For I = 1 To 5
ListView1.ListItems.Add , , "µÚ" & I & "ÐÐ"
For j = 1 To 5
ListView1.ListItems(I).ListSubItems.Add , , "µÚ" & j + 1 & "ÁÐ"
Next
Next
End Sub
Private Sub ListView1_ColumnClick(ByVal ColumnHeader As MSComctlLib.ColumnHeader) 'µ¥»÷ÁÐÍ·Òþ²Ø
I = ColumnHeader.Index
If I > 1 Then
ListView1.ColumnHeaders(I).Width = 0
End If
End Sub
ÎÒµÄÒâ˼²»ÊÇÕâÑù,ÎÒÊÇÒþ²ØÁËijһÁÐ,À¶¯ÔÚ¸ÃÒþ²ØÁÐÖ®ºóÆäËûÁÐʱ,±»Òþ²ØµÄÁÐÊDz»ÄÜÏÔʾ³öÀ´
ÉèÖÃÁËWidth =0 ÕÕÑù¿ÉÒÔÀ¿ªÏÔʾ³öÀ´,²¢²»ÊÇÕæÕýµÄÒþ²Ø
'Ä£¿é´úÂ룺
Option Explicit
Ïà¹ØÎÊ´ð£º
ÔÚÏÂÊÇvbµÄÐÂÊÖ£¬Ïëд¶Î³ÌÐò£¬ÔÚvbÖУ¬Ê¹ÓÃwscriptµ÷ÓÃһЩÍⲿµÄÃüÁµ«ÊdzÌÐòÖ´ÐÐÒ»Ö±ÓдíÎó£¬Çë¸÷λ¸ßÊÖ°ïæ½â´ðÏ£¬Ð»Ð»¡£
´úÂëÈçÏ£º
VB code:
Private Function getFile_CMD(filename, filepath) As Bo ......
±¾ÈËʹÓõÄÊÇVB6.0°æ±¾
¼ÙÉèÓÐÒ»¸ö¶ÔÏóA£¬AÄÚÓÐÀàÐÍΪBµÄ¶ÔÏóÊôÐÔ¡£ÏÖÔÚµÄÎÊÌâÊÇ£¬ÐèÒªÌí¼ÓÈô¸É¸öB¶ÔÏó×÷ΪA¶ÔÏóµÄÊôÐÔ¡£È磬
A.B1,A.B2,...
µ«¾ßÌåÌí¼Ó¶àÉÙ¸öB¶ÔÏó×÷ΪA¶ÔÏóµÄÊôÐÔÔòÊÓ¾ßÌåÇé¿ö²»Í¬¶ø²»Í¬ ......
¿ÉÒÔÂð
ºÃÆæ¹ÖµÄÌâÄ¿¶î£¡£¡
¿ÉÒÔ¸æËßÎÒÃÇÄãµ½µ×ÏëÎÊʲô £¿
2·Ö¸øÎҵϰ¾Í¿ÉÒÔ¡£
........................¿ÉÒÔÂð
¿ÉÒÔ!
¾À½á£¬
29. vb¿ÉÒÔÕâÑù×ö²»£¿ ( H )¡Ì
A. ......
Ö»»áVB£¬µ±¹ý1ÄêµÄVB³ÌÐòÔ±
ÏÖÔÚÏëÓëʱ¾ã½ø£¬Ñ§ÄÄÃÅÓïÑÔºÃÄØ
vb.net ,C# ,Java, »¹ÊÇVC++?
ÄÄÃÅÄܹ»¿ìËÙµÄÉÏÊÖ£¬²¢×ªÐÍ£¿
C#£¬winform»òwebform¶¼¿ÉÒÔ
vb.net
VC++
ÒýÓÃ
VC++
Âé·³ÄÜ˵¸öÀíÓÉô¡£¡£¡ ......