home *** CD-ROM | disk | FTP | other *** search
/ Programming Tool Box / SIMS_2.iso / vb_code2 / p_setup / prsel.frm (.txt) < prev    next >
Visual Basic Form  |  1995-02-27  |  5KB  |  114 lines
  1. PrSel
  2. Select a printer...
  3. Form1%
  4. BT_Setup
  5. &Setup
  6.     BT_Cancel
  7. Cancel
  8. BT_OK
  9. PList
  10. Label1
  11. &Printers:
  12. Picture1_Click
  13. GetProfileString
  14. AppName
  15. KeyName
  16. Default
  17. Form_Click
  18. Device
  19. newpos
  20. Driver
  21. DeviceMode
  22. form1
  23. PrDev
  24. GetDefPrDev
  25.     PrDefault
  26. DefPrD
  27. GetDefDefPr
  28. GetDefDevPr
  29. @    Form_Load
  30. IniFile    
  31. GetPrivateProfileStringP
  32. PList_Click
  33. alldevs
  34. count
  35. cpos2
  36. eptr>
  37. devlen
  38. PDevso
  39. BT_OK_Click
  40. devcnt
  41. devload
  42. cptr.
  43. dptrb
  44. PrintPDevs
  45. PDevsCnth
  46. entry
  47. PList
  48. PList_DblClick
  49.     listcount|
  50.     listindexU
  51. BT_Setup_ClickL
  52. WinIni
  53. PrSel
  54. GetDefPr
  55. DevApp
  56. devline
  57. DefApp
  58. DefKey
  59. PrDevs
  60. SetDefPr
  61. OutDev
  62. WritePrivateProfileString<
  63. PrSel_Load
  64. Label1_Click
  65. Do_OK
  66. BT_Cancel_Click
  67. CallPSetupp
  68. BT_Cancel_Click
  69. BT_OK_Click
  70. BT_Setup_Click
  71. No printer drivers available in the Windows WIN.INI file.
  72. Error:
  73. No printer device selected.
  74. Error:
  75. Do_OK
  76. No printer drivers available in the Windows WIN.INI file.
  77. Error:
  78. No printer device selected.
  79. Error:
  80.  At this point, we know a printer's been selected, so save it out to the .INI file.
  81. Form_Load
  82.  The prime directive to this Sub is to parse the list of devices in a .INI
  83.  file, and display them in the PList listbox..
  84. The running count of printer devices parsedc
  85. This "points" to the beginning of a name to be parsed.
  86. This "points" to the end of a name to be parsed.
  87.  Debug.Print "
  88.  Debug.Print PrDefault.Device-
  89.  Debug.Print PDevs(i%).Device-
  90.  Debug.Print PrDefault.Device = PDevs(i%).Device
  91.  Debug.Print PrDefault.Driver 
  92.  Debug.Print PDevs(i%).Driver 
  93.  Debug.Print PrDefault.Driver = PDevs(i%).Driver
  94.  Debug.Print PrDefault.Porte
  95.  Debug.Print PDevs(i%).Porte
  96.  Debug.Print PrDefault.Port = PDevs(i%).Port
  97.  For z% = 1 To Len(PrDefault.Port)
  98.  Debug.Print Asc(Mid$(PrDefault.Port, z%, 1));
  99.  Next z%
  100.  Debug.Print
  101.  For z% = 1 To Len(PDevs(i%).Port)
  102.  Debug.Print Asc(Mid$(PDevs(i%).Port, z%, 1));
  103.  Next z%
  104.  Debug.Print
  105. GetDefPr
  106. This "points" to the beginning of a name to be parsed.
  107. This "points" to the end of a name to be parsed.
  108. Debug.Print "
  109. -*Begin*
  110. Debug.Print PrDefault.Device
  111. Debug.Print PrDefault.Driver
  112. Debug.Print PrDefault.Port
  113. PList_DblClick
  114.