ÎÒÓÃDATAGRIDÏÖʵÎҵIJéѯ½á¹û£¬Äܲ»ÄÜͨ¹ýË«»÷ijÁлòÕßÓÒ¼ü²Ëµ¥ÀïÃæµãÒþ²Ø£¬È»ºó¸ÃÁоÍÒþ²ØÁË?ÇëÎʾßÌåÈçºÎʵÏÖPrivate Sub DataGrid1_HeadClick(ByVal ColIndex As Integer) DataGrid1.Columns(ColIndex).Width = 0 End Sub
¿ÉÒÔË«»÷ijÁбêÍ·Òþ²Ø µ¥»÷,д´íÁË Private Sub DataGrid1_DblClick() With DataGrid1 If .Col < 0 Then Exit Sub If .Row < 0 Then Exit Sub .Columns(.Col).Visible = False End With End Sub
Çë½ÌһϣºÎÒÓÃvbдÁËÒ»¸öµ÷ÓÃIllustratorµÄ²âÊÔ³ÌÐò£¬´úÂëºÜ¼òµ¥£ºPrivate Sub Command1_Click() Dim app As New Illustrator.Application Dim doc As Illustrator.Document Dim thislayer As Illustrator.Layer ......