ÎÒÕâÀïµÄ½ÚµãÊÇ´ÓÊý¾Ý¿âÀïÈ¡ÊýµÄ£¬²»¶¨Á¿£¬´úÂëÔõôʵÏÖ£¿ ¼òµ¥µÄ˵£¬¾ÍÊÇÈçºÎÑ¡ÖÐËùÓÐ×ӽڵ㣿ÈçºÎÅжÏ×ӽڵ㶼ѡÖС£¡£¡£¡£ 'Ê÷Ðνڵã±éÀú¹ý³Ì Private Sub CheckAllChildNodes(ByVal treeNode As treeNode, ByVal nodeChecked As Boolean) 'µÝ¹éÑ¡ÖÐËùÓÐ×Ó½Úµã Dim node As treeNode 'ÉùÃ÷½Úµã For Each node In treeNode.Nodes '±éÀú×Ó½Úµã node.Checked = nodeChecked 'Ñ¡ÖÐ
Çë½ÌһϣºÎÒÓÃvbдÁËÒ»¸öµ÷ÓÃIllustratorµÄ²âÊÔ³ÌÐò£¬´úÂëºÜ¼òµ¥£ºPrivate Sub Command1_Click() Dim app As New Illustrator.Application Dim doc As Illustrator.Document Dim thislayer As Illustrator.Layer ......
ÔÚvbÖÐÔõôÅжϣ¬²åÈëµ½Êý¾Ý¿âÖеÄÖµÊÇÖØ¸´µÄ£¬±¾È˲ŸսӴ¥VBÓïÑÔ£¬ÉõÊÇÓÐºÃ¶àµØ·½»¹²»¶®£¬»¹Çë¸÷λ´óÏÀÃǸø³ö´úÂ룬ллÁËѽ£¡£¡£¡ ²åÈë֮ǰselectһϰ¢¡£ »òÕßдһ¸ö×éºÏSQL²åÈëÓï¾ä£¬ÀýÈç IF not Exist( & ......