qq - 04/06/02 17:07:50
¥³¥á¥ó¥È:
¤Ï¤¸¤á¤Þ¤·¤Æ¡£
VB¤Ç¤ï¤«¤é¤Ê¤¤»ö¤¬¤¢¤ê¡¢web¾å¤ÇÄ´¤Ù¤Æ¤¤¤¿½ê¡¢¤³¤³¤Ø¤¿¤É¤ê¤Ä¤¤Þ¤·¤¿¡£
------------
http://www.bcap.co.jp/hanafusa/VBdengon/log_401to450.htm
¾åµ¥Ú¡¼¥¸¤Ë¡Ö»ÄÁü¤¬...¡£¡×¤È¤¤¤¦¸½¾Ý¤¬²ò·è¤Ç¤¤Þ¤»¤ó¤Ç¤·¤¿¡£¤â¤·¡¢¤´Â¸ÃΤǤ¢¤ì¤Ð¶µ¤¨¤ÆÄº¤¤¿¤¤¤È»×¤¤¤Þ¤¹¤Î¤Ç¡¢¤è¤í¤·¤¯¤ª´ê¤¤¤·¤Þ¤¹¡£
-------------
No.412 ¥³¥ó¥Ü¥Ü¥Ã¥¯¥¹¤Î¥ê¥¹¥Èɽ¼¨»ÄÁü¤¬¡¦¡¦¡¦¡¡¡¡Åê¹Æ¼Ô¡§£ï£ó£ó£á£î [99/5/19(¿å)11¡§24ʬ]
½é¿´¼Ô¤Ê¤â¤Î¤Ç½éÊâŪ¤Ê¼ÁÌä¤Ë¤Ê¤ê¤Þ¤¹¡£
¥³¥ó¥Ü¥Ü¥Ã¥¯¥¹¤ò¥¯¥ê¥Ã¥¯¤·¡¢¥ê¥¹¥È¤òɽ¼¨¤·ÁªÂò¤·¤Þ¤¹¡£¤³¤Î»þ¥³¥ó¥Ü¥Ü¥Ã¥¯¥¹¤Î»ÄÁü¤¬
¾Ã¤¨¤º¤Ë»Ä¤Ã¤Æ¤·¤Þ¤¤¤Þ¤¹¡£¸¶°ø¤Ï¤É¤³¤Ë¤¢¤ë¤Î¤Ç¤·¤ç¤¦¤«¡©
-----------
No.415 RE:¥³¥ó¥Ü¥Ü¥Ã¥¯¥¹¤Î¥ê¥¹¥Èɽ¼¨»ÄÁü¤¬¡¦¡¦¡¦¡¡¡¡¡¡Åê¹Æ¼Ô¡§¤¿¤¯¥Ü¥ó [99/5/19(¿å)20¡§20ʬ]
¥³¥ó¥Ü¥Ü¥Ã¥¯¥¹¤ÎClick¥¤¥Ù¥ó¥ÈÅù¤Ë»þ´Ö¤Î¤«¤«¤ë½èÍý¤ò¤µ¤ì¤Æ¤¤¤Ê¤¤¤Ç¤·¤ç¤¦¤«¡©
¤â¤·¤µ¤ì¤Æ¤¤¤ë¤Î¤Ê¤é¤Ð¡¢
Private Sub ComboBox1_Click()
DoEvents
ComboBox1.Refresh
'¡¡¡Á¡¡Ä̾ï¤Î½èÍý¡¡¡Á
End Sub
¤Î¤è¤¦¤Ë°ìÅÙÀ©¸æ¤ò¥·¥¹¥Æ¥à¤ËÅϤ·¤Æ¤ß¤¿¤é¤É¤¦¤Ç¤·¤ç¤¦¤«¡©
==========
¼«Ê¬¤âƱ¸½¾Ý¤¬È¯À¸¤·¤Æ¤ª¤ê¡¢¡ÖRefresh¡×¥á¥½¥Ã¥É¤ä¡¢¡ÖDoEvents¡×¤ä¡¢¡ÖAutoRedraw¡×¤Ê¤É¤ò¤ä¤Ã¤Æ¤ß¤¿¤Î¤Ç¤¹¤¬¡¢²þÁ±¤µ¤ì¤Þ¤»¤ó¤Ç¤·¤¿¡£
¾¤ËÂкö¤ò¤´Â¸¤¸¤Ê¤¤¤Ç¤·¤ç¤¦¤«?
¥³¥á¥ó¥È:
̵»ö¤Ëɽ¼¨¤Ç¤¤Þ¤·¤¿¡£
¤¢¤ê¤¬¤È¤¦¤´¤¶¤¤¤Þ¤·¤¿¡Á¡£m(__)m
¥³¥á¥ó¥È:
¸«½Ð¤·²èÌ̤ϡ¢MDI²èÌ̤νé´ü²½¤Ë»þ´Ö¤¬¤«¤«¤ë¾ì¹ç¤Ë
»ÈÍѤµ¤ì¤ë¾ì¹ç¤¬Â¿¤¤¤Î¤Ç¤¹¤¬¡¢Ã±¤Ë¸«½Ð¤·²èÌ̤òɽ¼¨
¤·¤¿¤¤¤È¸À¤¦¤Î¤Ê¤é¡¢¸«½Ð¤·²èÌ̤˥¿¥¤¥Þ¡¼¤òÉÕ¤±¤Æ¡¢
'====================================================
' frmSplash.frm
'====================================================
Private Sub Form_Load()
lblVersion.Caption = "¥Ð¡¼¥¸¥ç¥ó " & App.Major & "." & App.Minor & "." & App.Revision
lblProductName.Caption = App.Title
'¸«½Ð¤·²èÌ̤ò£³ÉôÖɽ¼¨
Timer1.Interval = 3000
End Sub
Private Sub Timer1_Timer()
Timer1.Interval = 0
Unload Me
End Sub
¿Æ²èÌ̤ϡ¢¤³¤ì¤À¤±
'====================================================
' MDIForm.frm
'====================================================
Private Sub MDIForm_Load()
Call mnuFileNew_Click
End Sub
¥×¥í¥¸¥§¥¯¥È¤Ëɸ½à¥â¥¸¥å¡¼¥ë¤òÄɲ䷤ơ¢¥×¥í¥¸¥§¥¯¥È¤Î¥×¥í¥Ñ¥Æ¥£
¤ò³«¤¤¤Æ¡¢¥¹¥¿¡¼¥È¥¢¥Ã¥×¤ÎÀßÄê¤ò¡¢MDIForm¤«¤éSub Main¡Ê¡Ë¤Ë
Êѹ¹¤·¤Þ¤¹¡£
'====================================================
' Module1.bas
'====================================================
Sub main()
With MDIForm
.Top = (Screen.Height - .Height) / 2
.Left = (Screen.Width - .Width) / 2
.Show
End With
With frmSplash
.Top = (Screen.Height - .Height) / 2
.Left = (Screen.Width - .Width) / 2
.Show
End With
End Sub
¤³¤ì¤Ç¡¢Âç¾æÉפä¤È»×¤¤¤Þ¤¹¡£MDI¤Î½é´ü²½¤Ë»þ´Ö¤¬¤«¤«¤ë¾ì¹ç
¤Ï¡¢¤Þ¤¿°ã¤Ã¤¿ÊýË¡¤Ç½ñ¤¤Þ¤¹¤¬¡¢º£²ó¤Î¤è¤¦¤Ê¾ì¹ç¤Ï¾åµ¤Î
ÊýË¡¤¬°ìÈÖ¼ê·Ú¤Ç¤¹¡£
¥³¥á¥ó¥È:
¤¿¤¯¥Ü¥ó¤µ¤ó¡¢¤³¤ó¤Ë¤Á¤Ï¡£(^.^)
¤¹¤¤¤Þ¤»¤ó¡¢¤Þ¤¿¤Þ¤¿¼ÁÌä¤Ê¤Î¤Ç¤¹¤¬¡¦¡¦¡¦¡£^^;
¥¢¥×¥êµ¯Æ°»þ¤Ë¥¹¥×¥é¥Ã¥·¥å¥í¥´¤òÆþ¤ì¤¿¤¤¤Î¤Ç¤¹¤¬
¡Ö¥Õ¥©¡¼¥à¥â¥¸¥å¡¼¥ë¤ÎÄɲáעª¡Ö¸«½Ð¤·²èÌ̡פǺîÀ®¤·¡¢
ñ½ã¤Ë¿Æ¥Õ¥©¡¼¥à¤Ë
'=====================================================
'¥¹¥×¥é¥Ã¥·¥å¥í¥´¤ò³«¤¤Þ¤¹
'=====================================================
'=====================================================
'ºÇ½é¤Ï̵Âê¤ÎÊÔ½¸²èÌ̤ò³«¤¤Þ¤¹
'=====================================================
Private Sub MDIForm_Load()
frmSplash.Show
Call mnuFileNew_Click
End Sub
¤ÈÂǤäƤߤ¿¤Î¤Ç¤¹¤¬¡¢¼Â¹Ô¤·¤Æ¤ß¤ë¤È
¥í¥´¤¬¿Æ¥Õ¥ì¡¼¥à¤Î²¼¤Ë±£¤ì¤ÆÉ½¼¨¤µ¤ì¤Æ¤·¤Þ¤¤¤Þ¤¹¡£(-_-;)
¤³¤ì¤òÁ°Ì̤˽Ф¹¤Ë¤Ï¤É¤¦¤·¤¿¤é¤è¤¤¤Î¤Ç¤·¤ç¤¦¤«¡©
¥³¥á¥ó¥È:
¤Ê¤ó¤Ç¤â¤¤¤¤¤Î¤Ç½ñ¤¹þ¤ó¤Ç¤¤¤Ã¤Æ²¼¤µ¤¤