ÿ

Tip : Microsoft Common Dialog ActiveX Control

ÿ

ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ Tip ¹Õéà¡Ô´¨Ò¡¤Ó¶ÒÁ 2 ¤Ó¶ÒÁ

ÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿ 1. ¤Ó¶ÒÁ·Õèÿ 1

¼Á¨Ðãªé µÑǤǺ¤ØÁ Microsoft common dialog ActiveX control 㹿ÍÃìÁ â´Â¡ÒÃá·Ã¡µÑǤǺ¤ØÁ ActiveX áµèÁѹ¢Öé¹ Msgbox ÇèÒ
" ¤Ø³äÁèÁÕãºÍ¹Ø­Òµ·Õè¨Óà»ç¹ã¹¡ÒÃãªéµÑǤǺ¤ØÁ ActiveX ¹Õé
¤Ø³¾ÂÒÂÒÁà»Ô´¿ÍÃìÁ·ÕèÁÕÇѵ¶Ø OLE ËÃ×͵ÑǤǺ¤ØÁ ActiveX ËÃ×ͤس¾ÂÒÂÒÁÊÃéÒ§µÑǤǺ¤ØÁ
ActiveX à¾×èÍ·Õè¨Ðä´éÃѺãºÍ¹Ø­Òµ·ÕèàËÁÒÐÊÁ ¡ÃسҵԴµèͺÃÔÉÑ··Õè¨Ñ´ËÒÇѵ¶Ø OLE ËÃ×Í µÑÇ
¤Çº¤ØÁ ActiveX ·Õèä´éÃѺãºÍ¹Ø­Òµ"

¼Áµéͧ·ÓÍÂèÒ§äà ¨Ö§¨Ðãªé§Ò¹ä´é ú¡Ç¹ªèÇÂ͸ԺÒÂãËé¼Á˹èͤÃѺÇèÒà¾ÔèÁ files ÍÐäà ÍÂèÒ§ääÃѺ à¾ÃÒÐÅͧ·ÓáÅéÇãªéäÁèä´éÍÂÙè´Õ ¢Íº¤Ø³ÍÒ¨à»ç¹ÍÂèÒ§ÊÙ§ ÁÒ ³ âÍ¡ÒʹÕé

ÿÿÿÿÿÿÿÿÿÿÿ Microsoft common dialog ActiveX control ¡ç¤×Í ä¿Åì comdlg32.ocxÿ â´Â»¡µÔ¨ÐÁÕÍÂÙèã¹â¿Åà´ÍÃì C:\Windows\Systemÿ µèÍ仹Õé¢ÍàÃÕ¡ÊÑé¹ æ ÇèÒ OCX ¤ÃѺ

ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ 2.ÿ ¤Ó¶ÒÁ·Õèÿ 2ÿ Åͧ¤ÅÔ¡ä»ÍèÒ¹¤ÃѺÿ à¾ÃÒÐà»ç¹àÃ×èͧÂÒÇ http://www.expert2you.com/view_question2.php?q_id=11995

ÿÿÿÿÿÿÿÿÿÿÿ ¢ÍàʹÍÇÔ¸Õ¡Òôѧ¹Õé

1. ¶éÒËÒ OCX µÑǹÕé¨Ò¡â¿Åà´ÍÃì·Õè¡ÅèÒÇ¢éÒ§µé¹äÁèä´éÿ ¡ç¤§µéͧÅͧËÒ¨Ò¡à¹çµ(http://activex.microsoft.com/controls/vb5/comdlg32.cab) ¨Ò¡¹Ñé¹áµ¡ä¿Åìä»äÇé·Õèâ¿Åà´ÍÃì C:\Windows\System ´Ñ§¡ÅèÒÇ¢éÒ§µé¹ÿ ËÒ¡¨Ðŧ·Ø¹Ë¹Ñ¡ æ ˹èÍ¡çŧ VB6 ¤ÃѺ ÁÕµÑǹÕéÍÂÙèáÅéÇ
2. à»Ô´¿ÍÃìÁã¹âËÁ´Í͡Ẻ(Design) áÅéǤÅÔ¡àÁ¹Ù Tools > ActiveX Controls... ËÃ×ÍÍաẺ¡ç¤×Í ¤ÅÔ¡ Tool µÒÁÃÙ»

ÃÙ»·Õè 1

àÁ×èͤÅÔ¡ Icon áÅéǨÐà¢éÒä»Ë¹éÒµèÒ§ VB Editor ¢Í§ Access ¤ÅÔ¡àÁ¹Ù Tools ¤ÅÔ¡ Reference

ÃÙ»·Õè 2

áÅéÇ Browse ËÒµÒÁª×èÍ OCX ´Ñ§¡ÅèÒÇ áÅéǤÅÔ¡àÅ×Í¡¤ÃѺÿ â»Ã´´ÙÃÙ»áÅéÇ·ÓµÒÁÅӴѺ

ÃÙ»·Õè 3

ÃÙ»·Õè 4

ÃÙ»·Õè 5

3. ¡ÅѺ˹éÒ·Õè˹éÒµèÒ§ Design ¢Í§¿ÍÃìÁ
4. ¤ÅÔ¡·ÕèàÁ¹Ùá·Ã¡ Insert > µÑǤǺ¤ØÁ ActiveX Control

ÃÙ»·Õè 6

5. ¨Ò¡¹Ñé¹ãªéᶺàÅ×è͹¤é¹ËÒ áÅéÇàÅ×Í¡¤ÅÔ¡ OCX ´Ñ§¡ÅèÒÇ áÅéǵͺ OK ¨Ð»ÃÒ¡® Icon ¢Í§ OCX º¹¡Åèͧà¤Ã×èͧÁ×Í

ÃÙ»·Õè 7

6. ¤ÅÔ¡·Õè Icon ¢Í§ OCX ¹Óä»ÇÒ§·Õè¿ÍÃìÁÿ ËÒ¡äÁèÊÓàÃ稡çŧ·Ø¹ÍÕ¡¹Ô´Å§ VB6 àŤÃѺÿ ÃѺ»ÃСѹÇèÒ OK
7. ·Ó Object µèÒ§ æ µÒÁ·Õè¤Ø³µéͧ¡Òà àªè¹ »ØèÁ¤ÓÊÑè§ Open, Save, Print, Font, Color à»ç¹µé¹

µÑÇÍÂèÒ§¡ÒûÃÐÂØ¡µìãªé Common Dialog

ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ¢Í¡µÑÇÍÂèÒ§ÊÑ¡àÃ×èͧ¤×Íÿ ¡ÒÃà¡çºÃÙ»ÀÒ¾ã¹ä¿Åì°Ò¹¢éÍÁÙÅ·ÕèÊÃéÒ§¢Öé¹´éÇ Access â´Â·Õè¤Ø³äÁèµéͧà¡çºáºº Embeded ËÃ×ÍẺ Linked áµèà¡çºµÑÇÍÑ¡ÉÃà»ç¹ Drive/Path/File Name áÅéÇà¢Õ¹â¤êµàÃÕ¡ãªé·Õè Form áÅÐ Report ä´éÊдǡ æ

ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ àÃÔèÁ¨Ò¡¤Ø³ÊÃéÒ§ Table â´Âã¹ Table ¹Õé¨ÐÁըӹǹ¿ÔÅ´ìµÒÁ·Õè¤Ø³µéͧ¡Òà áµèÁÕ 1 ¿ÔÅ´ìà»ç¹ª¹Ô´ Text àÍÒäÇéà¡çº ª×èÍä´Ãì¿/¾Ò·/ª×èÍä¿Åìÿ ¨Ò¡¹Ñ鹤س·Ó¿ÍÃìÁ¢Öé¹ÁÒ 1 ¿ÍÃìÁ ÊÓËÃѺà¾ÔèÁ¢éÍÁÙÅÿ ·Õè¿ÍÃìÁà¾ÔèÁ¢éÍÁÙŹÕéãËé¤Ø³ãÊè Common Dialog äÇé·ÕèÊèǹ㴡çä´éÿ áÅÐÁÕ Text Box µÑÇ˹Öè§ «Ö觼Áãªéª×èÍ Text Box ÇèÒ txtFileName àÍÒäÇéÃѺ¤èÒ¨Ò¡ Common Dialog áÅéÇãËé Text Box ¹ÕéÊ觤èÒµèÍä»à¡çº·ÕèµÒÃÒ§ÍÕ¡µèÍ˹Öè§

ÃÙ»·Õè 8

ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ¨Ò¡ÃÙ»·Õè 8ÿ Êèǹ¹Õéÿÿ ¤×Í Common Dialog ·ÕèãÊèà¢éÒä» ¼ÁµÑ駪×èÍ(Name)ãËé¡Ñº Common Dialog ÇèÒ CommonDialogNameÿ ¶Ñ´ä»ÁÕ Text Box ·ÕèÁÕª×èÍ txtFileName (ÁÕ Control Source à»ç¹ photo µÒÁµÒÃÒ§)ÿ áÅжѴä»ÁÕ»ØèÁ¤ÓÊÑè§àÃÕ¡ãªé Common Dialog

ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ à¢Õ¹â¤êµ¡Ó¡Ñº»ØèÁ¤ÓÊÑè§ä´é ´Ñ§¹Õé

Private Sub Command0_Click()
ÿÿÿÿÿÿÿÿ CommonDialogName.InitDir = "C:\"
ÿÿÿÿÿÿÿÿ CommonDialogName.DialogTitle = "¤é¹ËÒä¿ÅìÃÙ»"
ÿÿÿÿÿÿÿÿ CommonDialogName.FileName = "*.*"
ÿÿÿÿÿÿÿÿ CommonDialogName.Filter = "All Files(*.*) | *.*|JPG Files(*.jpg)|*.jpg|BMP Files(*.bmp)|*.bmp|"
ÿÿÿÿÿÿÿÿ CommonDialogName.ShowOpen
ÿÿÿÿÿÿÿÿ txtFileName = CommonDialogName.FileName
End Sub

àÁ×èͤÅÔ¡·Õè»ØèÁ¤ÓÊÑè§à¾ÔèÁÃÙ»ÿ ¨Ðä´é Commond Dialog ´Ñ§¹Õéÿ «Ö觤س¨Ð¤é¹ËÒä¿Åìä´é·Ø¡áËè§ã¹à¤Ã×èͧ¤ÍÁ¾ÔÇàµÍÃì¢Í§¤Ø³

ÃÙ»·Õèÿ 9

ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ¨Ò¡¹Ñé¹ÊÁÁµÔÇèÒ ¤Ø³¨ÐËÒä¿Åì·Õèâ¿Åà´ÍÃì jpg ¤Ø³¡çà¢éÒä»·Õèâ¿Åìà´ÍÃì jpg áÅФÅÔ¡·Õèª×èÍä¿Åì áÅéǤÅÔ¡µÍºà»Ô´

ÃÙ»·Õèÿ 10

¨Ðä´é¼ÅÅѾ¸ì ´Ñ§ÃÙ»¢éÒ§ÅèÒ§¹Õé¤ÃѺ

ÃÙ»·Õèÿ 11

ÿ

ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ʹ㨤ÅÔ¡ Download ä¿ÅìµÑÇÍÂèÒ§