diff --git a/CTRLREF.GID b/CTRLREF.GID new file mode 100644 index 0000000..e69de29 diff --git a/CTRLREF.HLP b/CTRLREF.HLP new file mode 100644 index 0000000..5448495 Binary files /dev/null and b/CTRLREF.HLP differ diff --git a/DATAMGR.CNT b/DATAMGR.CNT new file mode 100644 index 0000000..dd4e5ea --- /dev/null +++ b/DATAMGR.CNT @@ -0,0 +1,98 @@ +:Index Crystal Reports Help=crw.hlp +:Index Custom Control Reference=ctrlref.hlp +:Index Data Manager Help=datamgr.hlp +:Index Enterprise Edition Help=entprise.hlp +:Index Product Support Help=pss.hlp +:Index Samples Help=samples.hlp +:Index Setup Wizard Help=setupwiz.hlp +:Index Visual Basic Help=vb.hlp +:Index Visual Basic Readme=readme.hlp +1 Read Me=contents@readme.hlp +1 Visual Basic Help +2 What's New=vbconwhatsnew@vb.hlp>main +2 Contents Topic=vbidxmaincontents@vb.hlp>Main +2 Programming Language +3 Language Summary=idxreallangref@vb.hlp>right +3 Functions=vbidxrealfunctions@vb.hlp>right +3 Methods=vbidxrealmethods@vb.hlp>right +3 Events=vbidxrealevents@vb.hlp>right +3 Properties=vbidxrealproperties@vb.hlp>right +3 Statements=vbidxrealstatements@vb.hlp>right +3 Objects=vbidxrealobjects@vb.hlp>right +3 Trappable Errors=idxrealmsgtrap@vb.hlp>right +3 Keywords by Task=vaidxrealkeywordsbytask@vb.hlp>right +2 Using Visual Basic +3 How To Information Summary=vbidxHowToSummary@vb.hlp>Right +3 Learning Visual Basic=vbidxLearningVB@vb.hlp>Right +3 Creating the Interface=vbidxcreatinginterface@vb.hlp>Right +3 Setting Properties=vbidxsettingproperties@vb.hlp>Right +3 Writing and Debugging Code=vbidxwritingdebugging@vb.hlp>Right +3 Creating Your Own Objects=vbidxcreatingobjects@vb.hlp>right +3 Creating Distribution Media With the Setup Toolkit=vbidxrealcreatingdistributionsetup@vb.hlp>Right +1 Data Access=daidxRealDataAccess@vb.hlp>Main +1 Glossary=vbidxRealDefs@vb.hlp>Right +1 Development Environment=idxdevelopmentenvironment@vb.hlp>Right +1 Miscellaneous Information=idxinterfaceandOther@vb.hlp>Right +1 Using the Microsoft Knowledge Base=kbkb_Help_Contents@vb.hlp +1 Text Files=vbidxTextFiles@vb.hlp>Main +1 Other Help Files=vbidxhelpfiles@vb.hlp>Main +1 Copyright Information=vbidxCopyright@vb.hlp>main +1 Custom Control Help +2 Contents Topic=ccr_contents32@ctrlref.hlp>Main +2 Windows 95 Controls +3 ImageList=cpobjimagelist@ctrlref.hlp>main +3 ListView=cpobjlistview@ctrlref.hlp>main +3 ProgressBar=cpobjprogressbar@ctrlref.hlp>main +3 RichTextBox=cpobjrichedit@ctrlref.hlp>main +3 Slider=cpobjslider@ctrlref.hlp>main +3 StatusBar=cpobjstatusbar@ctrlref.hlp>main +3 TabStrip=cpobjtabcontrol@ctrlref.hlp>main +3 Toolbar=cpobjtoolbar@ctrlref.hlp>main +3 TreeView=cpobjTreeView@ctrlref.hlp>Main +2 3D Controls +3 3D Check Box=ctl3dchkbox@ctrlref.hlp>main +3 3D Command Button=ctl3dcmd@ctrlref.hlp>main +3 3D Frame=ctl3dframe@ctrlref.hlp>main +3 3D Group Push Button=ctl3dgroup@ctrlref.hlp>main +3 3D Option Button=ctl3doption@ctrlref.hlp>main +3 3D Panel=ctl3dpanel@ctrlref.hlp>main +2 System Controls +3 Communications=ctlcomm@ctrlref.hlp>MAIN +3 Key State=ctlkeystate@ctrlref.hlp>main +3 MAPI Message=ctlmapim@ctrlref.hlp>main +3 MAPI Session=ctlmapis@ctrlref.hlp>main +3 Multimedia MCI=ctlmci@ctrlref.hlp>main +2 Miscellaneous Controls +3 Animated Button=ctlanibttn@ctrlref.hlp>main +3 Gauge=ctlgauge@ctrlref.hlp>main +3 Graph=ctlgraph@ctrlref.hlp>main +3 Masked Edit=ctlmaskedit@ctrlref.hlp>main +3 Outline=ctloutline@ctrlref.hlp>main +3 Picture Clip=ctlpicclip@ctrlref.hlp>Main +3 Spin Button=ctlspin@ctrlref.hlp>main +3 SSTab Dialog=cpobjtabbeddialog@ctrlref.hlp>main +2 Constants and Other Information +3 Visual Basic Custom Control Constants=vbidxvisualbasiccustomconstants@ctrlref.hlp>main +3 Creating, Running, and Distributing Executable (.EXE) Files=ccr_exe@ctrlref.hlp>Main +3 Object Type=ccr_objecttype@ctrlref.hlp>Main +3 Registering OLE Custom Controls=ccr_regolecc@ctrlref.hlp>main +3 Trappable Errors for Windows 95 Custom Controls=msgWindows95controlserrors@ctrlref.hlp>main +3 Using Custom Properties Dialog Boxes=vbhowusingcustompropertydialogboxes@ctrlref.hlp>main +1 Enterprise Help +2 Remote Data Objects and the RemoteData Control +3 Using Remote Data Objects and the RemoteData Control=rdidxMainContents@entprise.hlp>Main +3 RemoteData Control=rdobjremotedata@entprise.hlp>Main +3 Remote Data Objects Language Summary=rdidxrdolanguagesummary@entprise.hlp>Right +3 Constants=rdcstRemoteDataConstants@entprise.hlp>Main +3 Events=rdidxREalEvents@entprise.hlp>Right +3 Methods=rdidxRealMethods@entprise.hlp>Right +3 Objects and Collections=rdidxRealObjects@entprise.hlp>Right +3 Properties=rdidxRealProperties@entprise.hlp>Right +3 Remote Data Object Model=rdidxremotedataobjectmodel@entprise.hlp>Main +3 Trappable Errors=rdidxRemoteDataTrappableErrors@entprise.hlp>Right +3 Conceptual Information Summary=rdidxrealrdconinfosum@entprise.hlp>Right +3 Glossary=rdidxrealglossary@entprise.hlp>Right +2 Component Manager +3 Using the Component Manager=cmidxComponentManager@entprise.hlp>Main +3 How-to Information=cmidxHowtoInformation@entprise.hlp>Right +3 Interface Information=cmidxInterfaceInformation@entprise.hlp>Right diff --git a/DATAMGR.EXE b/DATAMGR.EXE new file mode 100644 index 0000000..868bb5a Binary files /dev/null and b/DATAMGR.EXE differ diff --git a/DATAMGR.FTG b/DATAMGR.FTG new file mode 100644 index 0000000..e69de29 diff --git a/DATAMGR.FTS b/DATAMGR.FTS new file mode 100644 index 0000000..e69de29 diff --git a/DATAMGR.GID b/DATAMGR.GID new file mode 100644 index 0000000..e69de29 diff --git a/DATAMGR.HLP b/DATAMGR.HLP new file mode 100644 index 0000000..24ace85 Binary files /dev/null and b/DATAMGR.HLP differ diff --git a/FORM1.FRM b/FORM1.FRM index 72df2bc..b496f74 100644 --- a/FORM1.FRM +++ b/FORM1.FRM @@ -2398,13 +2398,15 @@ Form5.Show End Sub Private Sub Text1_Change() - +On Error Resume Next +Dim i As Integer +Dim Mid As Integer If Text1.Font.Bold = True Then Label23.Visible = True -If Text1.Font.Bold = True Then Shape12.Visible = True + If Text1.Font.Italic = True Then Label25.Visible = True -If Text1.Font.Italic = True Then Shape13.Visible = True + If Text1.Font.Underline = True Then Label27.Visible = True -If Text1.Font.Underline = True Then Shape14.Visible = True + Dim Counts As Integer diff --git a/FORM1.FRX b/FORM1.FRX index acbca9b..b47bf0f 100644 Binary files a/FORM1.FRX and b/FORM1.FRX differ diff --git a/MODULE5.BAS b/MODULE5.BAS new file mode 100644 index 0000000..de4b88d --- /dev/null +++ b/MODULE5.BAS @@ -0,0 +1,45 @@ +Attribute VB_Name = "Module5" + + + + +Private Const GWL_STYLE = (-16) +Private Const WS_BORDER = &H800000 +Private Declare Function GetWindowLong Lib "user32" _ + Alias "GetWindowLongA" (ByVal hWnd As Long, _ + ByVal nIndex As Long) As Long +Private Declare Function SetWindowLong Lib "user32" _ + Alias "SetWindowLongA" (ByVal hWnd As Long, _ + ByVal nIndex As Long, ByVal dwNewLong As Long) As Long +Private Const SWP_NOSIZE = &H1 +Private Const SWP_NOMOVE = &H2 +Private Const SWP_NOZORDER = &H4 +Private Const SWP_FRAMECHANGED = &H20 +Private Declare Function SetWindowPos Lib "user32" _ + (ByVal hWnd As Long, ByVal hWndInsertAfter As Long, _ + ByVal X As Long, ByVal Y As Long, _ + ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long + +Public Sub newborderstyle() + Dim lStyle As Long + + lStyle = GetWindowLong(Form1.hWnd, GWL_STYLE) + lStyle = lStyle And (Not WS_BORDER) + SetWindowLong Form1.hWnd, GWL_STYLE, lStyle + SetWindowPos Form1.hWnd, 0&, 0&, 0&, 0&, 0&, _ + SWP_FRAMECHANGED Or SWP_NOMOVE Or SWP_NOSIZE Or SWP_NOZORDER + + +End Sub + + +Public Sub oldborderstyle() +Dim lStyle As Long + + lStyle = GetWindowLong(Form1.hWnd, GWL_STYLE) + lStyle = lStyle And (WS_BORDER) + SetWindowPos Form1.hWnd, 0&, 0&, 0&, 0&, 0&, _ + SWP_FRAMECHANGED Or SWP_NOMOVE Or SWP_NOSIZE Or SWP_NOZORDER + + +End Sub diff --git a/MODULE6.BAS b/MODULE6.BAS new file mode 100644 index 0000000..1d45f1e --- /dev/null +++ b/MODULE6.BAS @@ -0,0 +1,11 @@ +Attribute VB_Name = "Module6" +Public Sub DefaultFontOpen() +Form1.CommonDialog1.flags = 1 +Form1.CommonDialog1.ShowFont +Form1.RichTextBox1.Font = Form1.CommonDialog1.FontName +Form1.RichTextBox1.Font.Size = Form1.CommonDialog1.FontSize +Form1.RichTextBox1.Font.Bold = Form1.CommonDialog1.FontBold +Form1.RichTextBox1.Font.Italic = Form1.CommonDialog1.FontItalic +Form1.RichTextBox1.Font.Underline = Form1.CommonDialog1.FontUnderline +End Sub + diff --git a/PASTEL.DIB b/PASTEL.DIB new file mode 100644 index 0000000..92b5eda Binary files /dev/null and b/PASTEL.DIB differ diff --git a/PROJECT1.VBP b/PROJECT1.VBP index b9eb226..20dd0de 100644 --- a/PROJECT1.VBP +++ b/PROJECT1.VBP @@ -35,7 +35,7 @@ Object=Wordpad.Document.1; WORDPAD.EXE Reference=*\G{218CB45F-20B6-11D2-8E17-0000F803A446}#1.0#0#C:\PROGRA~1\MESSEN~1\msmsgs.exe#Messenger Type Library Reference=*\G{3A0D0B4E-DD19-11CE-B7A6-00AA006EC3D4}#1.0#0#C:\VB\SAMPLES\DATAWIZ\DFD16.EXE#Data Access Form Designer Add-In for VB4 Reference=*\G{EF404E00-EDA6-101A-8DAF-00DD010F7EBB}#4.0#0#C:\VB\vbext.olb#Microsoft Visual Basic 4.0 Development Environment -ProjWinSize=82,1239,194,244 +ProjWinSize=103,809,194,232 ProjWinShow=2 IconForm="Form1" HelpFile=""