.Simple: Dialog + DoEvents Loop

Date: 02-16-2022

Return to Index

 
'An online tutorial on templates can be found at:
'http://www.garybeene.com/power/pb-tutor-templates.htm
 
'Use this template by copying everything below "'Copy below here:"
'and put in a file with a ".pbtpl" extension under pbwin90\bin.
'When PB IDE starts, the template will be available under the
'toolbar "Create New File" dropdown menu.
 
'Copy below here:
1
.bas
Simple: Dialog + Doevents Loop
#Compile EXE
#Dim All
%Unicode=1
#Include "win32api.inc"
 
Function PBMain() As Long
   Local hDlg As Dword, Count&
   Dialog New Pixels, 0, "Test",300,300,200,200, %WS_OverlappedWindow To hDlg
   Dialog Show Modeless hDlg Call DlgProc
   Do
      Dialog Doevents 0 To Count&
      MySub hDlg
   Loop While Count&
End Function
 
CallBack Function DlgProc() As Long
End Function
 
Sub MySub (hDlg as Dword)
   'test code here - place results in labels 100 & 101
End Sub
 
'gbs_00255
'Date: 03-10-2012

created by gbSnippets
http://www.garybeene.com/sw/gbsnippets.htm