tag:blogger.com,1999:blog-29306944.comments2023-07-05T19:49:46.775+07:00Herman Tan's BlogHerman Tanhttp://www.blogger.com/profile/14586267478337456208noreply@blogger.comBlogger50125tag:blogger.com,1999:blog-29306944.post-52975251137544296622011-07-26T21:58:00.248+07:002011-07-26T21:58:00.248+07:00Ma kasih Pak Hendrik atas postingan yang amat memb...Ma kasih Pak Hendrik atas postingan yang amat membantu ini.<br />TantoAnonymousnoreply@blogger.comtag:blogger.com,1999:blog-29306944.post-7082250564154152642011-02-15T10:15:54.633+07:002011-02-15T10:15:54.633+07:00terima kasih pak, sangat berguna.terima kasih pak, sangat berguna.thesuhuhttp://thesuhu.worpress.comnoreply@blogger.comtag:blogger.com,1999:blog-29306944.post-32898975333653279622009-09-01T11:35:21.283+07:002009-09-01T11:35:21.283+07:00Halo Pak. HermanT,
Sama seperti yang dialami Mr....Halo Pak. HermanT, <br /><br />Sama seperti yang dialami Mr. Bill OP, kira-kira kapan solusinya bisa direlease ...terima kasih.Unknownhttps://www.blogger.com/profile/04286590179446405369noreply@blogger.comtag:blogger.com,1999:blog-29306944.post-3574344696094302732009-08-14T01:47:13.166+07:002009-08-14T01:47:13.166+07:00Halo vcwalet,
PictRes memang tidak di support ole...Halo vcwalet,<br /><br />PictRes memang tidak di support oleh class ini. Hal ini juga sudah disebutkan pada Form OD Menu Generator (OD_GenMenu). Silahkan di baca pada EditBox nya tentang batasan-batasan yg mungkin belum/perlu anda ketahui.Herman Tanhttps://www.blogger.com/profile/14586267478337456208noreply@blogger.comtag:blogger.com,1999:blog-29306944.post-66728454125000216532009-08-12T12:46:06.763+07:002009-08-12T12:46:06.763+07:00pak Herman
kl untuk nampilin di menu gambar dari ...pak Herman<br /><br />kl untuk nampilin di menu gambar dari pictres bukan bmp gmana?..vcwalethttps://www.blogger.com/profile/17326139064715372667noreply@blogger.comtag:blogger.com,1999:blog-29306944.post-3351878319887250792009-07-26T02:22:59.758+07:002009-07-26T02:22:59.758+07:00Thanks for the comments! Sorry, I didn't test ...Thanks for the comments! Sorry, I didn't test the timeout parameter. Perhaps there is a conflict with the timer. I'll take a look and post back when I find the solution.Herman Tanhttps://www.blogger.com/profile/14586267478337456208noreply@blogger.comtag:blogger.com,1999:blog-29306944.post-65520483723035632472009-07-23T16:59:24.758+07:002009-07-23T16:59:24.758+07:00Beautiful - however, when I add a timeout paramete...Beautiful - however, when I add a timeout parameter to ShowMsg, it loses the centering, button change and transparency features - only the basic messagebox works. I guess I don't understand the binding params....Bill Oppnoreply@blogger.comtag:blogger.com,1999:blog-29306944.post-75948539199763850132009-07-21T13:01:23.420+07:002009-07-21T13:01:23.420+07:00VB.NET (version)
======
Declare Auto Function Dev...VB.NET (version)<br />======<br /><br />Declare Auto Function DeviceCapabilities Lib "winspool.drv" _<br />(ByVal pDeviceName As String, ByVal pPort As String, ByVal iIndex As Short, _<br /> ByVal pOutput As IntPtr, ByVal pDevMode As Integer) As Integer<br /><br /><br />Dim output As String<br />Dim nRes As Integer<br />Dim pAddr As IntPtr<br />Dim PrintDoc As System.Drawing.Printing.PrintDocument = New System.Drawing.Printing.PrintDocument<br />Dim PrinterName As String = PrintDoc.PrinterSettings.PrinterName<br /><br />nRes = DeviceCapabilities(PrinterName, "LPT1", DCFlags.DC_PAPERS, Nothing, 0)<br />pAddr = Marshal.AllocHGlobal(nRes * 20)<br />nRes = DeviceCapabilities(PrinterName, "LPT1", DCFlags.DC_PAPERS, pAddr, 0)<br /><br />Dim pid(nRes) As Short<br />Dim offset As Integer<br />offset = pAddr.ToInt32()<br /><br />Dim i As Integer<br />For i = 0 To (nRes - 1)<br /> pid(i) = Marshal.ReadInt16(New IntPtr(offset + i * 2))<br /> output += (pid(i).ToString & _<br /> vbTab & PrintDoc.PrinterSettings.PaperSizes(i).PaperName & _<br /> vbTab & PrintDoc.PrinterSettings.PaperSizes(i).Kind.ToString & vbCrLf)<br />Next<br />Marshal.FreeHGlobal(pAddr)Romoonnoreply@blogger.comtag:blogger.com,1999:blog-29306944.post-52251693433845087272009-07-18T23:50:18.708+07:002009-07-18T23:50:18.708+07:00Thanks untuk komentarnya :)
Kalau untuk wait windo...Thanks untuk komentarnya :)<br />Kalau untuk wait window, ga bisa di akalin supaya bisa Front Window. Karena windownya dibuat dari Form VFP (secara internal) & juga diatur oleh VFP, jadi bukan dari system.<br />Paling mungkin buat aja form sendiri, hilangkan titlebar, dll. Tinggal dibentuk seperti wait window.Herman Tanhttps://www.blogger.com/profile/14586267478337456208noreply@blogger.comtag:blogger.com,1999:blog-29306944.post-39512438636478949232009-07-13T15:21:17.860+07:002009-07-13T15:21:17.860+07:00Kueren boss... ane baru masuk ke blog anda.
Btw, g...Kueren boss... ane baru masuk ke blog anda.<br />Btw, gimana mensiasati penggunaan WAIT WINDOW di MDI karena wait window hanya bisa berjalan di screen mode. cmiiw.Agushttps://www.blogger.com/profile/03128647536144017230noreply@blogger.comtag:blogger.com,1999:blog-29306944.post-29376549492340759382009-03-21T23:33:00.000+07:002009-03-21T23:33:00.000+07:00Hi Mr. Herman, I like to read your blog :)hm... I ...Hi Mr. Herman, <BR/><BR/>I like to read your blog :)<BR/><BR/>hm... I oppositely do not suspect if that VFP timer not so realiable, it's not become attention of me during the time. <BR/><BR/>even have made Billing Aplication for the Internet Rent (WarNet) of last some years, also used timer, but during that also there is no complain of my user, possible feel does not be harmed.<BR/><BR/>Thank's Mr. Herman with this timer article, I can take its benefit of period to come.<BR/><BR/>Tetap semangat.. <BR/>English saya ngaco, yang penting ngerti dah he..he..heAnonymousnoreply@blogger.comtag:blogger.com,1999:blog-29306944.post-7322419241341301802009-03-07T09:36:00.000+07:002009-03-07T09:36:00.000+07:00Hi Kalpesh,The problem is not about Single or Mult...Hi Kalpesh,<BR/><BR/>The problem is not about Single or Multiple Printer. AFAIK, The code will only work on Dot Matrix<BR/><BR/>RegardsHerman Tanhttps://www.blogger.com/profile/14586267478337456208noreply@blogger.comtag:blogger.com,1999:blog-29306944.post-71096402401359033992009-03-06T12:34:00.000+07:002009-03-06T12:34:00.000+07:00Hi,I show your Code. It works fine. if there is Si...Hi,<BR/><BR/>I show your Code. It works fine. if there is Single Printer..<BR/><BR/>i have five printer in my Printer & Faxes Option..<BR/>1. Auto Epson LX-300 on PFIGER3<BR/>2. HP LaserJet 1018<BR/>3. Microsoft Office Document Image Writer<BR/>4. Microsoft XPS Document Writer<BR/>5. PrimoPDF<BR/><BR/>when i want to add in HP <B> Printer</B> but program always add in Epson Printer.<BR/><BR/>Please Help Me<BR/><BR/>ThanksKalpeshhttps://www.blogger.com/profile/16545978131942855702noreply@blogger.comtag:blogger.com,1999:blog-29306944.post-53122264632628736542009-01-02T11:46:00.000+07:002009-01-02T11:46:00.000+07:00Hi Gary, apakah saat menambahkan Custom Size, Repo...Hi Gary, apakah saat menambahkan Custom Size, Report Designer sedang terbuka? Kalau ya, ditutup dulu, baru dibuka lagi. Anda harus menambahkan Custom Paper Size sebelum membuka Report Designer.Herman Tanhttps://www.blogger.com/profile/14586267478337456208noreply@blogger.comtag:blogger.com,1999:blog-29306944.post-56489492725621514722008-12-31T17:13:00.000+07:002008-12-31T17:13:00.000+07:00Pak Herman, sy sudah coba code nya, jalan, dan ser...Pak Herman, sy sudah coba code nya, jalan, dan server propertiesnya udah ke add custom papernya.<BR/>Tapi di design report VFP 9, tetap aja ngak nongol custom paper sizenya. Masih sama saja.<BR/>Gmn solusinya pak ?<BR/>Trims<BR/>GaryAnonymousnoreply@blogger.comtag:blogger.com,1999:blog-29306944.post-36946090280034340552008-10-25T22:14:00.000+07:002008-10-25T22:14:00.000+07:00If you talking about Shortcut popup, then you have...If you talking about Shortcut popup, then you have to disable the item manually. For instance, put this code in an EditBox.RightClick() event:<BR/><BR/>Declare Long IsClipboardFormatAvailable in User32 Long nFormat<BR/>With oPopup<BR/>.CreatePopupItem( 3 )<BR/>.aPopupItem[1] = 'Cu&t'<BR/>.aPopupItem[2] = '&Copy'<BR/>.aPopupItem[3] = '&Paste'<BR/>hPopup = .CreatePopup( 1 )<BR/>.nFirstId = 1<BR/><BR/>** Disable Cut & Copy Item<BR/>If (This.SelLength == 0)<BR/> .DisablePopupItem( 1, 1 )<BR/> .DisablePopupItem( 1, 2 )<BR/>endif<BR/><BR/>** Disable Paste Item<BR/>If (IsClipboardFormatAvailable(1) == 0)<BR/> .DisablePopupItem( 1, 3 )<BR/>endif<BR/><BR/>nResult = .ActivatePopup()<BR/>** Do the rest<BR/>endif<BR/>EndWith<BR/><BR/>HTH<BR/>HermanHerman Tanhttps://www.blogger.com/profile/14586267478337456208noreply@blogger.comtag:blogger.com,1999:blog-29306944.post-9607030023690329632008-10-25T00:24:00.000+07:002008-10-25T00:24:00.000+07:00Perhaps you could clarify for me how to use the cl...Perhaps you could clarify for me how to use the class with the VFP special menu items like Edit,Cut, Paste, etc. I am using the class fine with other things. What I do not get is how to make them enable/disable automaticakky like they normally would. <BR/><BR/>ThanksAnonymousnoreply@blogger.comtag:blogger.com,1999:blog-29306944.post-24264501954949968632008-10-01T22:58:00.000+07:002008-10-01T22:58:00.000+07:00Hi Bruce, thanks for your feedback!Yes, you can ge...Hi Bruce, thanks for your feedback!<BR/>Yes, you can get the return value. No offense please :) Frankly, I leave that to the readers, because it's really easy to modified the "ShowMsg()" procedure to work the way you want, if you know the bacis of VFP OOP. However since you are new to the class here is the code to get the return value. Take out the "Procedure ShowMsg". Change it with this one:<BR/>Procedure ShowMsg( tc_Msg, tn_Type, tc_Title )<BR/> Local ln_Return<BR/><BR/> BindEvent( 0, 0x06, This, 'WndProc' )<BR/> ln_Return = MessageBox( tc_Msg, tn_Type, tc_Title )<BR/> UnBindEvents( 0, 0x06 )<BR/><BR/> Return ln_Return<BR/>EndProc<BR/><BR/>Regards,<BR/>HermanHerman Tanhttps://www.blogger.com/profile/14586267478337456208noreply@blogger.comtag:blogger.com,1999:blog-29306944.post-31930169539655996002008-10-01T11:42:00.000+07:002008-10-01T11:42:00.000+07:00clarification to my last comment: I used 273 as th...clarification to my last comment: I used 273 as the second PRAM to get an OK and CANCEL button on the MsgBox.<BR/><BR/>nAnswer = lo_MsgBox.ShowMsg(myMsg, 273,myTitle).<BR/><BR/>The result from tests on both buttons was .T.<BR/><BR/>BruceAnonymousnoreply@blogger.comtag:blogger.com,1999:blog-29306944.post-19434447385991768732008-10-01T10:52:00.000+07:002008-10-01T10:52:00.000+07:00Very nice, I am somewhat new to classes, with Mess...Very nice, I am somewhat new to classes, with Messagebox() one can get a RETURN as to the value of the button clicked. Is there a way to to do the same with this class. I have only been able to get a RETURN of .T. from either of two button on the same message.<BR/><BR/>Thanks,<BR/>BruceAnonymousnoreply@blogger.comtag:blogger.com,1999:blog-29306944.post-15114099609195787982008-08-01T11:35:00.000+07:002008-08-01T11:35:00.000+07:00Hallo pak Budi.Terimakasih untuk feedbacknya!Hallo pak Budi.<BR/>Terimakasih untuk feedbacknya!Herman Tanhttps://www.blogger.com/profile/14586267478337456208noreply@blogger.comtag:blogger.com,1999:blog-29306944.post-15056133147651594312008-07-31T12:11:00.000+07:002008-07-31T12:11:00.000+07:00Wow ....it's cool !nice coding, tidak ada kata2 ya...Wow ....it's cool !<BR/><BR/>nice coding, tidak ada kata2 yang bisa saya ucapkan, selain "it's cool", Thank's for shareAnonymousnoreply@blogger.comtag:blogger.com,1999:blog-29306944.post-67929532733974869972008-07-08T08:38:00.000+07:002008-07-08T08:38:00.000+07:00You are welcome Julio and thank you for being so p...You are welcome Julio and thank you for being so patient to fixing the bugs!Herman Tanhttps://www.blogger.com/profile/14586267478337456208noreply@blogger.comtag:blogger.com,1999:blog-29306944.post-18510532315259985692008-07-07T21:45:00.000+07:002008-07-07T21:45:00.000+07:00Ok Herman, thanks you very much! this would be ver...Ok Herman, thanks you very much! this would be very usefull for me.<BR/><BR/>My name is Julio Veloz.<BR/><BR/>Bye.Anonymousnoreply@blogger.comtag:blogger.com,1999:blog-29306944.post-21812321479073272172008-07-07T03:48:00.000+07:002008-07-07T03:48:00.000+07:00Hi,You're right! It should not use UPPER() functio...Hi,<BR/><BR/>You're right! It should not use UPPER() function at all. Also the ASC() function should be CTOBIN(). I updated the code, please take a look.<BR/>BTW, please leave your name so I can put it in my updated code.<BR/>ThanksHerman Tanhttps://www.blogger.com/profile/14586267478337456208noreply@blogger.com