ÈçÌ⣬µ«²»ÊÇ˵×Ó´°Ìå×î´ó»¯¡£
Call SetWindowPos(chdhWnd, 0&, 0&, 0&, 0&, 0&, SWP_NOSIZE Or SWP_NOREDRAW Or SWP_SHOWWINDOW)
SetParent chdhWnd, prthwnd
²»ÖªÌî³äÊÇ·ñΪÆÌÂú£¿£¿£¿
ÒýÓÃ
ÈçÌ⣬µ«²»ÊÇ˵×Ó´°Ìå×î´ó»¯¡£
Private Sub MDIForm_Load()
Form1.Wind ......
Ò»¸ö´°Ìå Á½¸ö¿Ø¼þ combox1 ºÍ Image1
ͨ¹ý·µ»ØcomboxµÄÖµ ÅÐ¶Ï ²¢ÏÔʾÕýÈ·µÄ imagel ͼƬ
IF combox1.text = "1"
set Image1.Picture = LoadPicture ("D:\1.bmp") ͼƬ¿Ø¼þÏÔʾµÄΪ¿Õ Çë¸ßÊÖÖ¸µã Íò·Ö¸Ðл ¡£
imagelist¿Ø¼þ¡£ÏȼӺ㬺óµ÷Óá£
ÒýÓÃ
Ò»¸ ......
VBÈçºÎʵÏÖÀàËÆCSDNÂÛ̳×ó±ßµÄĿ¼Ê÷£¿ÀàËÆä¯ÀÀÆ÷ä¯ÀÀĿ¼һÑù¡£
ÎÒÓÃVBµÄDirListBox,µ«Ã»ÓÐÄ¿Â¼Ç°ÃæµÄ¡°+¡±¡°-¡±Õ¹¿ª£¬ºÏ²¢£¬±êÖ¾£¬Ôõô°ì£¿
ʹÓà TreeView ¼´¿É
ÎÒµÄÄ¿µÄÊÇä¯ÀÀ¼ÆËã»úÓ²ÅÌÉϵÄÎļþ¼ÐĿ¼½á¹¹£¬ÓÃTteeViewÄÜʵÏÖÂð£¿
ÒýÓÃ
ÎÒµÄÄ¿µÄÊÇä¯ÀÀ¼ÆËã»úÓ²ÅÌÉϵÄÎļþ¼ÐĿ¼½á¹¹£¬ÓÃTreeViewÄÜʵÏÖÂ𣿠......
¾ÍÊÇʹÓÃvb scriptÓïÑÔʹµã»÷°´Å¥Ê±ÅжÏËùÊäÈëµÄÊý¾ÝÊÇ·ñºÏ·¨£¬ÀýÈçǰºóÊäÈëµÄÃÜÂë²»Ò»Ö¿ÉÒÔµ¯³öÌáʾҪÄãÖØÐÂÊäÈëµÈ
<script language="vbscript">
<!--
sub tijiao_onclick()
if len(login.userid.value) <3 then
msgbox "Óû§ÃûÌ«¶Ì£ ......
ÔÚVBÖе÷ÓÃVCÖÐдµÄDLL£¬µÚÒ»´Îµ÷ÓÃûÎÊÌâ¡£µ«ÊÇÈç¹ûVBµÄ´úÂë·¢ÉúÐ޸ĺ󣬱àÒëÖ´ÐУ¬ÄÇôϵͳÌáʾÕÒ²»µ½DLLÎļþ¡£ÎÒ»»ÁËÁíÍâµÄÒ»¸ö³ÌÐò×ö²âÊÔ£¬¾ÍûÓÐÉÏÃæµÄÎÊÌâ¡£ÓÐûÓÐÓöµ½¹ýÀàËÆÎÊÌâµÄ£¬Ö¸µãϰ¡£¡
ÎÒÓþø¶Ô·¾¶²âÊÔ¹ýÁË£¬Ã»ÎÊÌâ¡£µÚÒ»´ÎÔËÐÐûÓÐÎÊÌ⣬Èç¹û³ÌÐòµ÷ÊÔÖз¢Éú´íÎó£¬ÔÙ´ÎÔËÐе÷ÊÔʱ£¬¾Í»á·¢ÉúDLLÕÒ²»µ½Îļ ......
rsr.Open "select * from sky_user", Conn2, 1, 3
Do While Not rsr.EOF
rsr("CK") = "£¿"
rsr.MoveNext
Loop
rsr.Update
rsr.Close
ÕâÑù²»ÐÐŶ£¬£¬
Ôõô½â¾öÄØ£¿
VB code:
Do While Not rsr.EOF
rsr("CK") = "£¿" ......