Re: ActiveX component can't create object - Visual Basic Discussion Boards

Knappen8-Aug-02 16:56

8-Aug-02 16:56

I solved it, by using a RichTextBox.
Then concating chr(13) into a String, ended upp showing return´s.

(simple TextBox´s dont do the trick)

Re: Insert a [Enter] in a String

Anbuselvan8-Aug-02 17:48

Anbuselvan

8-Aug-02 17:48

Hi Friend,

Try this for better.

Text1.Text = "Anbu" & VbNewLine & "Selvan"

Have a nice coding.

P.Anbuselvan

Re: Insert a [Enter] in a String

Anonymous9-Aug-02 8:50

Anonymous

9-Aug-02 8:50

Isn't this what vbCrlf is for?

Re: Insert a [Enter] in a String

Knappen9-Aug-02 9:27

Knappen

9-Aug-02 9:27

Yes in VB6 but in VB.NET it´s System.Windows.Forms.Key.Return

----

The I moved on to RichTextBox and found this nice sample -
using XHTML to RTF-format a RichTextBox

http://www.gotdotnet.com/userarea/keywordsrch.aspx?keyword=xhtml

(XHTML is well-formated HTML => XML)
no unclosed tags (ex:
is in XHTML
)

VBScript keyCode constants??

Roman Nurik8-Aug-02 8:54

Roman Nurik

8-Aug-02 8:54

how come in VBScript there are no defined constants for keys like vbKeyDelete (VK_DELETE) and such? i instead have to use the real value of vbKeyDelete... 0x2E (&H2E in VBS)

- Roman -

ActiveX component can't create object

Anbuselvan7-Aug-02 19:47

Anbuselvan

7-Aug-02 19:47

Hi all,

I received 'ActiveX component can't create object' while creating Winsock control dynamically. How will I overcome this problem.

Thanks,

P.Anbuselvan

Re: ActiveX component can't create object

Nick Parker8-Aug-02 11:52

Nick Parker

8-Aug-02 11:52

Do you have the Microsoft Winsock Control 6.0 control added to your application from Components section, this would cause it?

Nick Parker

Re: ActiveX component can't create object

Anbuselvan11-Aug-02 21:55

Anbuselvan

11-Aug-02 21:55

Hi All,

I solved my problem.
Follows the informations from the given link

http://support.microsoft.com/default.aspx?scid=kb;en-us;Q200271

for the solution.

Regards

P.Anbuselvan

Using VB to access File Properties?

Barleyman7-Aug-02 11:18

Barleyman

7-Aug-02 11:18

Does anyone know how to access the Summary Tab fields in the File properties? When you right click on a file in w2k you can type an author, title, summary, etc. Is there a way you can use VB to extract this information?

John

Reset security permission of a child object, How ?

Yoav6-Aug-02 23:30

Yoav

6-Aug-02 23:30

Hello All

I'd like to be able to copycat the process of resetting
security permission on subfolder\subregistrykey to match that of the
parent folder\registrykey.
Using VB or anything else.
Does any one have a clue on how to do that ?
I know how to set permissions but how can i reset it for the child objects?

--Yoav WTF | :WTF:

Visual Basic / Access Xp help

hemroids6-Aug-02 3:41

hemroids

6-Aug-02 3:41

Hi there.

I'm very new at VB programing, but got a good background in Access. I have been trying to link pictures to a access database without actually embedding them, and have succeeded! But now I'm battling to find code or control dialog to search for files (like a browser) to specify a file path. I have tried MS common dialog control, but it gives me an error to register and license the package, no matter what I try. (I did buy the original Office XP Pro Dead | X|

) Can anyone please help or any suggestions?

Re: Visual Basic / Access Xp help

Martin Ziacek6-Aug-02 3:44

Martin Ziacek

6-Aug-02 3:44

<font color=#0,0,ff>Option Explicit

Declare Function</font><font color=#0,0,0> GetOpenFileName</font><font color=#0,0,ff> Lib</font><font color=#0,0,0> "comdlg32.dll"</font><font color=#0,0,ff> Alias</font><font color=#0,0,0> "GetOpenFileNameA" (pOpenfilename</font><font color=#0,0,ff> As</font><font color=#0,0,0> OPENFILENAME)</font><font color=#0,0,ff> As Long
Declare Function</font><font color=#0,0,0> GetSaveFileName</font><font color=#0,0,ff> Lib</font><font color=#0,0,0> "comdlg32.dll"</font><font color=#0,0,ff> Alias</font><font color=#0,0,0> "GetSaveFileNameA" (pOpenfilename</font><font color=#0,0,ff> As</font><font color=#0,0,0> OPENFILENAME)</font><font color=#0,0,ff> As Long

Type</font><font color=#0,0,0> MSA_OPENFILENAME</font><font color=#0,80,0>
    ' Filter string used for the File Open dialog filters.
    ' Use MSA_CreateFilterString() to create this.
    ' Default = All Files, *.*
</font><font color=#0,0,0>    strFilter</font><font color=#0,0,ff> As String</font><font color=#0,80,0>

    ' Initial Filter to display.
    ' Default = 1.
</font><font color=#0,0,0>    lngFilterIndex</font><font color=#0,0,ff> As Long</font><font color=#0,80,0>

    ' Initial directory for the dialog to open in.
    ' Default = Current working directory.
</font><font color=#0,0,0>    strInitialDir</font><font color=#0,0,ff> As String</font><font color=#0,80,0>

    ' Initial file name to populate the dialog with.
    ' Default = ".
</font><font color=#0,0,0>    strInitialFile</font><font color=#0,0,ff> As String</font><font color=#0,0,0>
    strDialogTitle</font><font color=#0,0,ff> As String</font><font color=#0,80,0>

    ' Default extension to append to file if user didn't specify one.
    ' Default = System Values (Open File, Save File).
</font><font color=#0,0,0>    strDefaultExtension</font><font color=#0,0,ff> As String</font><font color=#0,80,0>

    ' Flags (see constant list) to be used.
    ' Default = no flags.
</font><font color=#0,0,0>    lngFlags</font><font color=#0,0,ff> As Long</font><font color=#0,80,0>

    ' Full path of file picked.  On OpenFile, if the user picks a
    ' nonexistent file, only the text in the 'File Name' box is returned.
</font><font color=#0,0,0>    strFullPathReturned</font><font color=#0,0,ff> As String</font><font color=#0,80,0>

    ' File name of file picked.
</font><font color=#0,0,0>    strFileNameReturned</font><font color=#0,0,ff> As String</font><font color=#0,80,0>

    ' Offset in full path (strFullPathReturned) where the file name
    ' (strFileNameReturned) begins.
</font><font color=#0,0,0>    intFileOffset</font><font color=#0,0,ff> As Integer</font><font color=#0,80,0>

    ' Offset in full path (strFullPathReturned) where the file extension begins.
</font><font color=#0,0,0>    intFileExtension</font><font color=#0,0,ff> As Integer

End Type


Const</font><font color=#0,0,0> ALLFILES = "All Files"</font><font color=#0,0,ff>

Type</font><font color=#0,0,0> OPENFILENAME
    lStructSize</font><font color=#0,0,ff> As Long</font><font color=#0,0,0>
    hwndOwner</font><font color=#0,0,ff> As Long</font><font color=#0,0,0>
    hInstance</font><font color=#0,0,ff> As Long</font><font color=#0,0,0>
    lpstrFilter</font><font color=#0,0,ff> As String</font><font color=#0,0,0>
    lpstrCustomFilter</font><font color=#0,0,ff> As Long</font><font color=#0,0,0>
    nMaxCustrFilter</font><font color=#0,0,ff> As Long</font><font color=#0,0,0>
    nFilterIndex</font><font color=#0,0,ff> As Long</font><font color=#0,0,0>
    lpstrFile</font><font color=#0,0,ff> As String</font><font color=#0,0,0>
    nMaxFile</font><font color=#0,0,ff> As Long</font><font color=#0,0,0>
    lpstrFileTitle</font><font color=#0,0,ff> As String</font><font color=#0,0,0>
    nMaxFileTitle</font><font color=#0,0,ff> As Long</font><font color=#0,0,0>
    lpstrInitialDir</font><font color=#0,0,ff> As String</font><font color=#0,0,0>
    lpstrTitle</font><font color=#0,0,ff> As String</font><font color=#0,0,0>
    flags</font><font color=#0,0,ff> As Long</font><font color=#0,0,0>
    nFileOffset</font><font color=#0,0,ff> As Integer</font><font color=#0,0,0>
    nFileExtension</font><font color=#0,0,ff> As Integer</font><font color=#0,0,0>
    lpstrDefExt</font><font color=#0,0,ff> As String</font><font color=#0,0,0>
    lCustrData</font><font color=#0,0,ff> As Long</font><font color=#0,0,0>
    lpfnHook</font><font color=#0,0,ff> As Long</font><font color=#0,0,0>
    lpTemplateName</font><font color=#0,0,ff> As Long
End Type


Const</font><font color=#0,0,0> OFN_ALLOWMULTISELECT = &H200</font><font color=#0,0,ff>
Const</font><font color=#0,0,0> OFN_CREATEPROMPT = &H2000</font><font color=#0,0,ff>
Const</font><font color=#0,0,0> OFN_EXPLORER = &H80000</font><font color=#0,0,ff>
Const</font><font color=#0,0,0> OFN_FILEMUSTEXIST = &H1000</font><font color=#0,0,ff>
Const</font><font color=#0,0,0> OFN_HIDEREADONLY = &H4</font><font color=#0,0,ff>
Const</font><font color=#0,0,0> OFN_NOCHANGEDIR = &H8</font><font color=#0,0,ff>
Const</font><font color=#0,0,0> OFN_NODEREFERENCELINKS = &H100000</font><font color=#0,0,ff>
Const</font><font color=#0,0,0> OFN_NONETWORKBUTTON = &H20000</font><font color=#0,0,ff>
Const</font><font color=#0,0,0> OFN_NOREADONLYRETURN = &H8000</font><font color=#0,0,ff>
Const</font><font color=#0,0,0> OFN_NOVALIDATE = &H100</font><font color=#0,0,ff>
Const</font><font color=#0,0,0> OFN_OVERWRITEPROMPT = &H2</font><font color=#0,0,ff>
Const</font><font color=#0,0,0> OFN_PATHMUSTEXIST = &H800</font><font color=#0,0,ff>
Const</font><font color=#0,0,0> OFN_READONLY = &H1</font><font color=#0,0,ff>
Const</font><font color=#0,0,0> OFN_SHOWHELP = &H10</font><font color=#0,0,ff>


Type</font><font color=#0,0,0> BROWSEINFO
    hwndOwner</font><font color=#0,0,ff> As Long</font><font color=#0,0,0>
    pidlRoot</font><font color=#0,0,ff> As Long</font><font color=#0,0,0>
    pszDisplayName</font><font color=#0,0,ff> As String</font><font color=#0,0,0>
    lpszTitle</font><font color=#0,0,ff> As String</font><font color=#0,0,0>
    ulFlags</font><font color=#0,0,ff> As Long</font><font color=#0,0,0>
    lpfn</font><font color=#0,0,ff> As Long</font><font color=#0,0,0>
    lParam</font><font color=#0,0,ff> As Long</font><font color=#0,0,0>
    iImage</font><font color=#0,0,ff> As Long
End Type

Declare Function</font><font color=#0,0,0> SHBrowseForFolder</font><font color=#0,0,ff> Lib</font><font color=#0,0,0> "shell32.dll"</font><font color=#0,0,ff> Alias</font><font color=#0,0,0> "SHBrowseForFolderA" (ByRef lpBrInf</font><font color=#0,0,ff> As</font><font color=#0,0,0> BROWSEINFO)</font><font color=#0,0,ff> As Long
Declare Function</font><font color=#0,0,0> SHGetPathFromIDList</font><font color=#0,0,ff> Lib</font><font color=#0,0,0> "shell32.dll"</font><font color=#0,0,ff> Alias</font><font color=#0,0,0> "SHGetPathFromIDListA" (</font><font color=#0,0,ff>ByVal</font><font color=#0,0,0> pidl</font><font color=#0,0,ff> As Long</font><font color=#0,0,0>,</font><font color=#0,0,ff> ByVal</font><font color=#0,0,0> pszPath</font><font color=#0,0,ff> As String</font><font color=#0,0,0>)</font><font color=#0,0,ff> As Long</font><font color=#0,0,0>


Public</font><font color=#0,0,ff> Function</font><font color=#0,0,0> BrowseForFolder(capt</font><font color=#0,0,ff> As String</font><font color=#0,0,0>, Optional hwnd</font><font color=#0,0,ff> As Long</font><font color=#0,0,0> =</font><font color=#80,0,0> 0</font><font color=#0,0,0>)</font><font color=#0,0,ff> As String
Dim</font><font color=#0,0,0> brInf</font><font color=#0,0,ff> As</font><font color=#0,0,0> BROWSEINFO</font><font color=#0,0,ff>
Dim</font><font color=#0,0,0> lRet</font><font color=#0,0,ff> As Long
Dim</font><font color=#0,0,0> Path</font><font color=#0,0,ff> As String</font><font color=#0,0,0> *</font><font color=#80,0,0> 256</font><font color=#0,0,ff>

On Error GoTo</font><font color=#0,0,0> BrowseForFolder_ERROR_HANDLER

BrowseForFolder = ""</font><font color=#0,80,0>
'path = String$(512, 0)
</font><font color=#0,0,0>
brInf.hwndOwner = hwnd
brInf.pidlRoot =</font><font color=#80,0,0> 0</font><font color=#0,0,0>
brInf.pszDisplayName =</font><font color=#0,0,ff> String</font><font color=#80,0,0>$</font><font color=#0,0,0>(</font><font color=#80,0,0>512</font><font color=#0,0,0>,</font><font color=#80,0,0> 0</font><font color=#0,0,0>)
brInf.lpszTitle = capt
brInf.ulFlags =</font><font color=#80,0,0> 1</font><font color=#0,0,0>
brInf.lpfn =</font><font color=#80,0,0> 0</font><font color=#0,0,0>
brInf.lParam =</font><font color=#80,0,0> 0</font><font color=#0,0,0>
brInf.iImage =</font><font color=#80,0,0> 0</font><font color=#0,0,0>

lRet = SHBrowseForFolder(brInf)</font><font color=#0,0,ff>

If</font><font color=#0,0,0> lRet <></font><font color=#80,0,0> 0</font><font color=#0,0,ff> Then
    If</font><font color=#0,0,0> SHGetPathFromIDList(lRet, Path) <></font><font color=#80,0,0> 0</font><font color=#0,0,ff> Then</font><font color=#0,0,0>
        BrowseForFolder =</font><font color=#0,0,ff> Left</font><font color=#0,0,0>(Path,</font><font color=#0,0,ff> InStr</font><font color=#0,0,0>(</font><font color=#80,0,0>1</font><font color=#0,0,0>, Path,</font><font color=#0,0,ff> Chr</font><font color=#0,0,0>(</font><font color=#80,0,0>0</font><font color=#0,0,0>), vbBinaryCompare) -</font><font color=#80,0,0> 1</font><font color=#0,0,0>)</font><font color=#0,0,ff>
    End If
End If

Exit Function</font><font color=#0,0,0>
BrowseForFolder_ERROR_HANDLER:
ErrorHandler "BrowseForFolder"</font><font color=#0,0,ff>
End Function
Private Sub</font><font color=#0,0,0> OF_to_MSAOF(of</font><font color=#0,0,ff> As</font><font color=#0,0,0> OPENFILENAME, msaof</font><font color=#0,0,ff> As</font><font color=#0,0,0> MSA_OPENFILENAME)</font><font color=#0,80,0>
' This sub converts from the win32 structure to the friendly MSAccess structure.
</font><font color=#0,0,0>
    msaof.strFullPathReturned =</font><font color=#0,0,ff> Left</font><font color=#80,0,0>$</font><font color=#0,0,0>(of.lpstrFile,</font><font color=#0,0,ff> InStr</font><font color=#0,0,0>(of.lpstrFile,</font><font color=#0,0,ff> Chr</font><font color=#80,0,0>$</font><font color=#0,0,0>(</font><font color=#80,0,0>0</font><font color=#0,0,0>)))
    msaof.strFileNameReturned = of.lpstrFileTitle
    msaof.intFileOffset = of.nFileOffset
    msaof.intFileExtension = of.nFileExtension</font><font color=#0,0,ff>

End Sub
Private Sub</font><font color=#0,0,0> MSAOF_to_OF(msaof</font><font color=#0,0,ff> As</font><font color=#0,0,0> MSA_OPENFILENAME, of</font><font color=#0,0,ff> As</font><font color=#0,0,0> OPENFILENAME, Optional hwnd</font><font color=#0,0,ff> As Long</font><font color=#0,0,0> =</font><font color=#80,0,0> 0</font><font color=#0,0,0>)</font><font color=#0,80,0>
' This sub converts from the friendly MSAccess structure to the win32 structure.
</font><font color=#0,0,ff>    Dim</font><font color=#0,0,0> strFile</font><font color=#0,0,ff> As String</font><font color=#0,0,0> *</font><font color=#80,0,0> 512</font><font color=#0,80,0>

    ' Initialize some parts of the structure.
</font><font color=#0,0,0>
    of.hwndOwner = hwnd
    of.hInstance =</font><font color=#80,0,0> 0</font><font color=#0,0,0>
    of.lpstrCustomFilter =</font><font color=#80,0,0> 0</font><font color=#0,0,0>
    of.nMaxCustrFilter =</font><font color=#80,0,0> 0</font><font color=#0,0,0>
    of.lpfnHook =</font><font color=#80,0,0> 0</font><font color=#0,0,0>
    of.lpTemplateName =</font><font color=#80,0,0> 0</font><font color=#0,0,0>
    of.lCustrData =</font><font color=#80,0,0> 0</font><font color=#0,0,ff>

    If</font><font color=#0,0,0> msaof.strFilter = ""</font><font color=#0,0,ff> Then</font><font color=#0,0,0>
        of.lpstrFilter = MSA_CreateFilterString(ALLFILES, "*.*")</font><font color=#0,0,ff>
    Else</font><font color=#0,0,0>
        of.lpstrFilter = msaof.strFilter</font><font color=#0,0,ff>
    End If</font><font color=#0,0,0>

    of.nFilterIndex = msaof.lngFilterIndex
    of.lpstrFile = msaof.strInitialFile &</font><font color=#0,0,ff> String</font><font color=#80,0,0>$</font><font color=#0,0,0>(</font><font color=#80,0,0>512</font><font color=#0,0,0> -</font><font color=#0,0,ff> Len</font><font color=#0,0,0>(msaof.strInitialFile),</font><font color=#80,0,0> 0</font><font color=#0,0,0>)
    of.nMaxFile =</font><font color=#80,0,0> 511</font><font color=#0,0,0>
    of.lpstrFileTitle =</font><font color=#0,0,ff> String</font><font color=#80,0,0>$</font><font color=#0,0,0>(</font><font color=#80,0,0>512</font><font color=#0,0,0>,</font><font color=#80,0,0> 0</font><font color=#0,0,0>)
    of.nMaxFileTitle =</font><font color=#80,0,0> 511</font><font color=#0,0,0>
    of.lpstrTitle = msaof.strDialogTitle
    of.lpstrInitialDir = msaof.strInitialDir
    of.lpstrDefExt = msaof.strDefaultExtension
    of.flags = msaof.lngFlags
    of.lStructSize =</font><font color=#0,0,ff> Len</font><font color=#0,0,0>(of)</font><font color=#0,0,ff>

End Sub
Private Function</font><font color=#0,0,0> MSA_GetOpenFileName(msaof</font><font color=#0,0,ff> As</font><font color=#0,0,0> MSA_OPENFILENAME)</font><font color=#0,0,ff> As Integer</font><font color=#0,80,0>
' Opens the file open dialog.
</font><font color=#0,0,ff>
    Dim</font><font color=#0,0,0> of</font><font color=#0,0,ff> As</font><font color=#0,0,0> OPENFILENAME</font><font color=#0,0,ff>
    Dim</font><font color=#0,0,0> intRet</font><font color=#0,0,ff> As Integer</font><font color=#0,0,0>

    MSAOF_to_OF msaof, of
    intRet = GetOpenFileName(of)</font><font color=#0,0,ff>

    If</font><font color=#0,0,0> intRet</font><font color=#0,0,ff> Then</font><font color=#0,0,0>
        OF_to_MSAOF of, msaof</font><font color=#0,0,ff>
    End If</font><font color=#0,0,0>

    MSA_GetOpenFileName = intRet</font><font color=#0,0,ff>

End Function
Private Function</font><font color=#0,0,0> MSA_GetSaveFileName(msaof</font><font color=#0,0,ff> As</font><font color=#0,0,0> MSA_OPENFILENAME)</font><font color=#0,0,ff> As Integer
    Dim</font><font color=#0,0,0> of</font><font color=#0,0,ff> As</font><font color=#0,0,0> OPENFILENAME</font><font color=#0,0,ff>
    Dim</font><font color=#0,0,0> intRet</font><font color=#0,0,ff> As Integer</font><font color=#0,0,0>

    MSAOF_to_OF msaof, of

    intRet = GetSaveFileName(of)</font><font color=#0,0,ff>
    
    If</font><font color=#0,0,0> intRet</font><font color=#0,0,ff> Then</font><font color=#0,0,0>
        OF_to_MSAOF of, msaof</font><font color=#0,0,ff>
    End If</font><font color=#0,0,0>

    MSA_GetSaveFileName = intRet</font><font color=#0,0,ff>

End Function
Private Function</font><font color=#0,0,0> MSA_CreateFilterString(varFilt</font><font color=#0,0,ff> As String</font><font color=#0,0,0>, ext</font><font color=#0,0,ff> As String</font><font color=#0,0,0>)</font><font color=#0,0,ff> As String</font><font color=#0,80,0>
' Creates a filter string from the passed in arguments.
' Returns " if no args are passed in.
' Expects an even number of args (filter name, extension), but
' if an odd number is passed in, it appends *.*
</font><font color=#0,0,ff>
    Dim</font><font color=#0,0,0> strFilter</font><font color=#0,0,ff> As String</font><font color=#0,0,0>

    strFilter = strFilter & varFilt &</font><font color=#0,0,ff> Chr</font><font color=#80,0,0>$</font><font color=#0,0,0>(</font><font color=#80,0,0>0</font><font color=#0,0,0>) & ext &</font><font color=#0,0,ff> Chr</font><font color=#80,0,0>$</font><font color=#0,0,0>(</font><font color=#80,0,0>0</font><font color=#0,0,0>) &</font><font color=#0,0,ff> Chr</font><font color=#0,0,0>(</font><font color=#80,0,0>0</font><font color=#0,0,0>)
    MSA_CreateFilterString = strFilter</font><font color=#0,0,ff>

End Function</font><font color=#0,80,0>
' INPUT     : start path
'             file types, like 'Text files'
'             extension
'             title of dialog
' OUTPUT    : path and file name like 'C:\Winnt\file.txt'
'Example    : OpenFile("C:\","Text Files","*.txt","Select Text File")
</font><font color=#0,0,ff>Function</font><font color=#0,0,0> OpenFile(strSearchPath,</font><font color=#0,0,ff> Name As String</font><font color=#0,0,0>, exten</font><font color=#0,0,ff> As String</font><font color=#0,0,0>, DialogTitle</font><font color=#0,0,ff> As String</font><font color=#0,0,0>)</font><font color=#0,0,ff> As String

Dim</font><font color=#0,0,0> msaof</font><font color=#0,0,ff> As</font><font color=#0,0,0> MSA_OPENFILENAME
    
msaof.strDialogTitle = DialogTitle
msaof.strInitialDir = strSearchPath
msaof.strFilter = MSA_CreateFilterString(</font><font color=#0,0,ff>Name</font><font color=#0,0,0>, exten)

MSA_GetOpenFileName msaof

OpenFile =</font><font color=#0,0,ff> Trim</font><font color=#0,0,0>(msaof.strFullPathReturned)</font><font color=#0,0,ff>
    
If</font><font color=#0,0,0> OpenFile = ""</font><font color=#0,0,ff> Then</font><font color=#0,0,0>
    OpenFile =</font><font color=#0,0,ff> Chr</font><font color=#0,0,0>(</font><font color=#80,0,0>0</font><font color=#0,0,0>)</font><font color=#0,0,ff>
Else</font><font color=#0,0,0>
    OpenFile =</font><font color=#0,0,ff> Mid</font><font color=#0,0,0>(OpenFile,</font><font color=#80,0,0> 1</font><font color=#0,0,0>,</font><font color=#0,0,ff> Len</font><font color=#0,0,0>(OpenFile) -</font><font color=#80,0,0> 1</font><font color=#0,0,0>)</font><font color=#0,0,ff>
End If
    
End Function</font><font color=#0,80,0>
' INPUT     : start path
'             file types, like 'Text files'
'             extension
'             title of dialog
' OUTPUT    : path and file name like 'C:\Winnt\file.txt'
'Example    : SaveFile("C:\","Text Files","*.txt","Select Text File")
</font><font color=#0,0,ff>Function</font><font color=#0,0,0> SaveFile(strSearchPath,</font><font color=#0,0,ff> Name As String</font><font color=#0,0,0>, exten</font><font color=#0,0,ff> As String</font><font color=#0,0,0>, DialogTitle</font><font color=#0,0,ff> As String</font><font color=#0,0,0>)</font><font color=#0,0,ff> As String
Dim</font><font color=#0,0,0> msaof</font><font color=#0,0,ff> As</font><font color=#0,0,0> MSA_OPENFILENAME
    
msaof.strDialogTitle = DialogTitle
msaof.strInitialDir = strSearchPath
msaof.strFilter = MSA_CreateFilterString(</font><font color=#0,0,ff>Name</font><font color=#0,0,0>, exten)

MSA_GetSaveFileName msaof

SaveFile =</font><font color=#0,0,ff> Trim</font><font color=#0,0,0>(msaof.strFullPathReturned)</font><font color=#0,0,ff>
    
If</font><font color=#0,0,0> SaveFile = ""</font><font color=#0,0,ff> Then</font><font color=#0,0,0>
    SaveFile =</font><font color=#0,0,ff> Chr</font><font color=#0,0,0>(</font><font color=#80,0,0>0</font><font color=#0,0,0>)</font><font color=#0,0,ff>
Else</font><font color=#0,0,0>
    SaveFile =</font><font color=#0,0,ff> Mid</font><font color=#0,0,0>(SaveFile,</font><font color=#80,0,0> 1</font><font color=#0,0,0>,</font><font color=#0,0,ff> Len</font><font color=#0,0,0>(SaveFile) -</font><font color=#80,0,0> 1</font><font color=#0,0,0>)
    SaveFile = SaveFile & "." &</font><font color=#0,0,ff> Mid</font><font color=#0,0,0>(exten,</font><font color=#80,0,0> 3</font><font color=#0,0,0>)</font><font color=#0,0,ff>
End If
    
End Function</font><font color=#0,0,0>


</font>

Martin

--------------------------------------------
C'mon we all know computers are experimental devices and should only be used for playing games.
Using them for alternative stuff like business, is clearly not using them for what they are intended.

Colin Davies

Nested Classes (after much hair pulling)

Ray Cassick5-Aug-02 18:31

Ray Cassick

5-Aug-02 18:31

Ok, I want to create an object hierarchy within my application that will take care of holding some common settings as an alternative to using global vars. I also want this to be a holding area for the application level configuration info that will be read in from a few XML configuration files. My intent is to serialize this data to an XML file latter and pass the file onto some external plug in type components so they can parse through it as they need to and grab what ever configuration settings they need.

The basic gist of what I am looking for is this....

I want to have a parent class (App) to contain a few nested classes (Paths, Config, etc...), and each of these nested classes to have some properties internal to them. My intent here is to be able to create one instance of the parent class and get access to all the members of the child classes as so:

App.Paths.Path1
...
App.Config.Setting1
...

Now, what I wanted (expected to be able to do) was:

Class App

    Public Paths as CPaths
    Public Config as CConfig

    Public sub New()
        Paths = new CPaths
        Config = new CConfig

    End sub

    Protected Class CPaths

        Private _Path1 as string

        Protected sub New()
        ...
        Protected Readonly Property Path1 as String
            Get
                Return _Path1
            End Get
        End Property

    End Class

    Protected Class CConfig

        Private _Setting1 as string

        Protected sub New()
        ...
        Protected Readonly Property Setting1 as String
            Get
                Return _Setting1
            End Get
        End Property

    End Class

End Class

Instead what I HAD to do was make each one of the nested classes public because I could not declare a public instance of a protected nested class in the parent class constructor!!!

While this does appear to work, it also seems to allow a developer to bypass my parent class and directly create instances of my nested classes. IE They can instansiate the public members of the class directly like so:

Dim objAppPaths As New App.CPaths

This really seems to be counter productive to building this hierarchy in the first place.

Am I missing something here?

Re: Nested Classes (after much hair pulling)

Richard Deeming5-Aug-02 22:57

Richard Deeming

5-Aug-02 22:57

Make the nested classes and their properties Public, but make the constructors as Friend. That way, only code within your assembly can create instances of the internal class.

You may be better off using Shared methods instead, which would remove the need to create instances of the class. For example:

Class App
    Public Class Paths
        Private Shared _Path1 as String
        Shared Sub New()
            'Initialize your properties here
        End Sub
        Private Sub New()
            'No need to create instances of this class
        End Sub

        Public Shared Readonly Property Path1 As String
            Get
                Return _Path1
            End Get
        End Property
    End Class

    Public Class Config
        Private Shared _Setting1 As String
        Shared Sub New()
            'Initialize your properties here
        End Sub
        Private Sub New()
            'No need to create instances of this class
        End Sub

        Public Shared Readonly Property Setting1 As String
            Get
                Return _Setting1
            End Get
        End Property
    End Class

    Shared Sub New()
        'Initialize any properties for App here
    End Sub
    Private Sub New()
        'No need to create instances of this class
    End Sub
End Class

Then, you can just use:

Dim Path1 As String = App.Paths.Path1

Updated: the member variables have to be Shared as well! Blush | :O

Nested Classes (after much hair pulling)

Ray Cassick5-Aug-02 18:28

Ray Cassick

5-Aug-02 18:28

App.Paths.Path1
...
App.Config.Setting1
...

Now, what I wanted (expected to be able to do) was:

Class App

  Public Paths as CPaths
  Public Config as CConfig

  Public sub New()
    Paths = new CPaths
    Config = new CConfig

  End sub

  Protected Class CPaths

    Private _Path1 as string

    Protected sub New()
    ...
    Protected Readonly Property Path1 as String
      Get
        Return _Path1
      End Get
    End Property

  End Class

  Protected Class CConfig

    Private _Setting1 as string

      Protected sub New()
      ...
      Protected Readonly Property Setting1 as String
        Get
          Return _Setting1
        End Get
      End Property

  End Class

End Class

Instead what I HAD to do was make each one of the nested classes public because I could not declare a public instance of a protected nested class in the parent class constructor!!!

While this does appear to work, it also seems to allow a developer to bypass my parent class and directly create instances of my nested classes. IE: they will be able to declare as follows:

Dim objAppPaths As New App.CPaths

This really seems to be counter productive to building this hierarchy in the first place.

Am I missing something here?

Re: Nested Classes (after much hair pulling)

Ray Cassick6-Aug-02 3:49

Ray Cassick

6-Aug-02 3:49

Darn folks... Didn't mean to post this twice... I kept getting errors and didn't think it posted at all.

Sorry...

Control array annoyances...

Ray Cassick5-Aug-02 9:55

Ray Cassick

5-Aug-02 9:55

I have learned to deal with the way VB.NET has to be handled to create a control array but one thing still continues to bite me...

In VB6, if I had a bunch of label controls on a form that did nothing other than label things, I used to love to name them all the same name (thus creating a control array). Even if I was never going to use them as a control this way at least it gave me the ability to stop tons of controls that I was never going to have to reference from appearing in the dropdown box.

Now, when I go to select a control I have to wade through this long list of other controls that I am never going to use.

Am I missing something here?

help needed...!!!

drmzunlimited5-Aug-02 7:04

drmzunlimited

5-Aug-02 7:04

hello everybody...

I require some help from the programmers. I want to have a program which could scan all the HDD present in the network with thier Volume Serial Number ....since Volume Serial Number is the only way to uniquely identify a HDD
and store the output to a Microsoft Access Database file.

At a particular amount of time it should tell that a particular HDD with this serial number is connected or not?

--thnx
waiting for a quick reply...

Storing input to a cell in excel

skydivenut4-Aug-02 16:31

skydivenut

4-Aug-02 16:31

Okay, This is proably a no brainer for you folks but I am new to programming at this level, so please bear with me;

The Objective; to save the users input string to a cell after it has been verified.

The problem; when I run the code to debug it I currently get a "Runtime error 9 -subscript out of range" .

I would also ask that there must be a better way to store the password all suggestions are welcomed on that one and can anyone tell me what I need to use to mask the users input with a single repeated character.

Here's my current code:

<br />
Private Sub CommandButton2_Click()<br />
 Dim Tb As Integer, PwdSv As String, Field As String<br />
    <br />
   Set Workbooks("XTSR").Sheets("Sheet14").Range("C17").Value = PwdSv<br />
   Set Workbooks("XTSR").Sheets("Sheet14").Range("C6:C11").Value = Field<br />
   <br />
   For Tb = 1 To 6<br />
      If Field = "" And PwdSv = "" Then Call password_new<br />
   Next Tb<br />
      If PwdSv <> "" Then Call Password<br />
End Sub<br />
<br />
Public Sub password_new()<br />
 Dim Default, Msg1, Msg2, Style, Title1, Title2, PwdSv<br />
RESTART:<br />
 Default = ""<br />
 Msg1 = "Enter a Password"<br />
 Msg2 = "Re-enter Password to Confirm it"<br />
 Msg3 = "Entries Did Not Match, Try Again!"<br />
 Set PwdSv = Workbooks("XTSR").Sheets("Sheet14").Range("C17").Value<br />
 Title1 = "Password Confirmation"<br />
 Title2 = "Password Error"<br />
 Style = vbOKOnly + vbExclamation + vbApplicationModal<br />
     Open "Ltrt.pws" For Output As #1<br />
        strPwd1 = InputBox(Msg1, Title1, Default, 100, 100)<br />
        strPwd2 = InputBox(Msg2, Title1, Default, 100, 100)<br />
        Write #1, strPwd1, strPwd2<br />
    Close #1<br />
    Open "Ltrt.pws" For Input As #1<br />
          Line Input #1, strData<br />
    Close #1<br />
        If strPwd1 = strPwd2 Then<br />
            Set PwdSv = strPwd2<br />
            Else<br />
            Response = MsgBox(Msg3, Style, Title2)<br />
        If Response.Value = 0 Then GoTo RESTART<br />
        End If<br />
End Sub<br />
Public Sub Password()<br />
Dim Compare, PwdSv, Msg1, Msg2, Style, Title1, Title2<br />
Msg1 = "Please Enter Your Password"<br />
Msg2 = "Password Incorrect"<br />
Set PwdSv = Worksheet("Sheet14").Range("C17").Value<br />
Style = vbOKOnly + vbExclamation + vbApplicationModal<br />
Title1 = "Password Required"<br />
Title2 = "Password Volilation"<br />
Retry:<br />
Compare = InputBox(Msg1, Title1, 100, 100)<br />
    If PwdSv = Compare Then Call ScreenFieldUnlock<br />
    Else<br />
       Response = MsgBox(Msg2, Style, Title2)<br />
    If Response.Value = 0 Then GoTo Retry<br />
End Sub<br />
Public Sub ScreenFieldUnlock()<br />
        TextBox1.Locked = False<br />
        TextBox2.Locked = False<br />
        TextBox3.Locked = False<br />
        TextBox4.Locked = False<br />
        TextBox5.Locked = False<br />
        TextBox6.Locked = False<br />
        UserForm1.Show<br />
End Sub<br />

The code I have here may be overkill but I wanted to be complete in the information and my inexperience shows I am sure. Hope someone can help I have spent a lot of time and getting no where on this one.

Roger
(Stubborn bulldog who like to go fast)

multi text file processing

ftjjk4-Aug-02 15:51

ftjjk

4-Aug-02 15:51

Please don't laugh. I am using MS Access to process text files. Right now it can process one file at a time. I want it to process an entire directory. Following is the current code for selecting the file for processing. can anyone help me modify this to automatically process the entire directory of text files.

Function Macro1()
On Error GoTo Macro1_Err
Dim stringFilename
stringFilename = InputBox("Enter the file:")

DoCmd.TransferText acImportFixed, "A Import Specification", "A", "c:\data\data1\" + stringFilename + ".txt", False, ""

Fred

Error when trying Update on SQLDataAdapter

Knappen4-Aug-02 5:07

Knappen

4-Aug-02 5:07

Helo
What´s wrong when this Error commes up?

System.InvalidOperationException: Update requires a valid UpdateCommand when passed DataRow collection with modified rows. at System.Data.Common.DbDataAdapter.Update(DataRow[] dataRows, DataTableMapping tableMapping)

What im trying to do is Updating a SQLServer Table with a offline updated Dataset. The Dataset is build by the .copy method. And the first table is identical to that on the SQLServer

update database in vb.net

devil6663-Aug-02 11:41

devil666

3-Aug-02 11:41

hi
i want to update a table in databse using VB.NEt.. but i cant find a way to do it...
plz help me out

Re: update database in vb.net

Nick Parker7-Aug-02 2:59

Nick Parker

7-Aug-02 2:59

You should read this article, but change your name, it's a little creepy.

Nick Parker

Help!! VB.NET Custom DataGridColumn Problem ...

afphinfan12-Aug-02 5:42

afphinfan1

2-Aug-02 5:42

I am having a problem with the datagrid. I needed a columnstyle to display a email link for each contact that is displayed in the detail portion of a master-detail form. I found an example of a combobox and modified it for to a linklabel (oddly enough it works ... this surprised me because I am completely lost with inherit, override, overload, etc. I think I'm down to two problems: I can't figure out how to handle the clicked link (this is kind of important!) and I would like to be able to change the background color of the label to match the alternating row color.

Thanks in advance for any help provided!!
Mark

Here is the code for the datagridlinklabel: (sorry for the length)

Option Strict On
Option Explicit On
Imports System.Collections
Imports System.ComponentModel
Imports System.Drawing
Imports System.Windows.Forms
Imports System.Data
Public Class DataGridLinkLabel
Inherits LinkLabel
Public Sub New()
MyBase.New()
End Sub
Public isInEditOrNavigateMode As Boolean = True
End Class
Public Class DataGridLinkLabelColumnStyle
Inherits DataGridColumnStyle
'
' UI constants
'
Private xMargin As Integer = 2
Private yMargin As Integer = 1
Private dgLinkLabel As DataGridLinkLabel
'
' Used to track editing state
'
Private OldVal As String = String.Empty
Private InEdit As Boolean = False
'
' Create a new column - DisplayMember passed by string
'
Public Sub New(ByVal DisplayMember As String)

dgLinkLabel = New DataGridLinkLabel()
With dgLinkLabel
.Visible = False
.Text = DisplayMember
End With
End Sub
Public Sub New()
dgLinkLabel = New DataGridLinkLabel()
With dgLinkLabel
.Visible = False
End With
End Sub
'------------------------------------------------------
' Methods overridden from DataGridColumnStyle
'------------------------------------------------------
'
' Abort Changes
'
Protected Overloads Overrides Sub Abort(ByVal RowNum As Integer)
Debug.WriteLine("Abort()")
RollBack()
HideLinkLabel()
EndEdit()
End Sub
Protected Overloads Overrides Function Commit(ByVal DataSource As CurrencyManager, _
ByVal RowNum As Integer) As Boolean
HideLinkLabel()
If Not InEdit Then
Return True
End If
Try
Dim Value As Object = dgLinkLabel.Text
If NullText.Equals(Value) Then
Value = Convert.DBNull
End If
SetColumnValueAtRow(DataSource, RowNum, Value)
Catch e As Exception
RollBack()
Return False
End Try
EndEdit()
Return True
End Function
'
' Remove focus
'
Protected Overloads Overrides Sub ConcedeFocus()
dgLinkLabel.Visible = False
End Sub
'
' Edit Grid
'
Protected Overloads Overrides Sub Edit(ByVal Source As CurrencyManager, _
ByVal Rownum As Integer, _
ByVal Bounds As Rectangle, _
ByVal [ReadOnly] As Boolean, _
ByVal InstantText As String, _
ByVal CellIsVisible As Boolean)
dgLinkLabel.Text = String.Empty
Dim OriginalBounds As Rectangle = Bounds
OldVal = dgLinkLabel.Text
If CellIsVisible Then
Bounds.Offset(xMargin, yMargin)
Bounds.Width -= xMargin * 2
Bounds.Height -= yMargin
dgLinkLabel.Bounds = Bounds
dgLinkLabel.Visible = True
Else
dgLinkLabel.Bounds = OriginalBounds
dgLinkLabel.Visible = False
End If
dgLinkLabel.Text = GetText(GetColumnValueAtRow(Source, Rownum))
If Not InstantText Is Nothing Then
dgLinkLabel.Text = InstantText
End If
dgLinkLabel.RightToLeft = Me.DataGridTableStyle.DataGrid.RightToLeft
dgLinkLabel.Focus()
If InstantText Is Nothing Then
dgLinkLabel.Select()
Else
Dim [End] As Integer = dgLinkLabel.Text.Length
dgLinkLabel.Select()
End If
If dgLinkLabel.Visible Then
DataGridTableStyle.DataGrid.Invalidate(OriginalBounds)
End If
InEdit = True
End Sub
Protected Overloads Overrides Function GetMinimumHeight() As Integer
'
' Set the minimum height to the height of the linklabel
'
Return dgLinkLabel.PreferredHeight + yMargin
End Function
Protected Overloads Overrides Function GetPreferredHeight(ByVal g As Graphics, _
ByVal Value As Object) As Integer
Debug.WriteLine("GetPreferredHeight()")
Dim NewLineIndex As Integer = 0
Dim NewLines As Integer = 0
Dim ValueString As String = Me.GetText(Value)
Do
While NewLineIndex <> -1
NewLineIndex = ValueString.IndexOf("r\n", NewLineIndex + 1)
NewLines += 1
End While
Loop
Return FontHeight * NewLines + yMargin
End Function
Protected Overloads Overrides Function GetPreferredSize(ByVal g As Graphics, _
ByVal Value As Object) As Size
Dim Extents As Size = Size.Ceiling(g.MeasureString(GetText(Value), _
Me.DataGridTableStyle.DataGrid.Font))
Extents.Width += xMargin * 2 + DataGridTableGridLineWidth
Extents.Height += yMargin
Return Extents
End Function
Protected Overloads Overrides Sub Paint(ByVal g As Graphics, _
ByVal Bounds As Rectangle, _
ByVal Source As CurrencyManager, _
ByVal RowNum As Integer)
Paint(g, Bounds, Source, RowNum, False)
End Sub
Protected Overloads Overrides Sub Paint(ByVal g As Graphics, _
ByVal Bounds As Rectangle, _
ByVal Source As CurrencyManager, _
ByVal RowNum As Integer, _
ByVal AlignToRight As Boolean)
Dim Text As String = GetText(GetColumnValueAtRow(Source, RowNum))
PaintText(g, Bounds, Text, AlignToRight)
End Sub
Protected Overloads Sub Paint(ByVal g As Graphics, _
ByVal Bounds As Rectangle, _
ByVal Source As CurrencyManager, _
ByVal RowNum As Integer, _
ByVal BackBrush As Brush, _
ByVal ForeBrush As Brush, _
ByVal AlignToRight As Boolean)
Dim Text As String = GetText(GetColumnValueAtRow(Source, RowNum))
PaintText(g, Bounds, Text, BackBrush, ForeBrush, AlignToRight)
End Sub
Protected Overloads Overrides Sub SetDataGridInColumn(ByVal Value As DataGrid)
MyBase.SetDataGridInColumn(Value)
If Not (dgLinkLabel.Parent Is Value) Then
If Not (dgLinkLabel.Parent Is Nothing) Then
dgLinkLabel.Parent.Controls.Remove(dgLinkLabel)
End If
End If
If Not (Value Is Nothing) Then Value.Controls.Add(dgLinkLabel)
End Sub
Protected Overloads Overrides Sub UpdateUI(ByVal Source As CurrencyManager, _
ByVal RowNum As Integer, ByVal InstantText As String)
dgLinkLabel.Text = GetText(GetColumnValueAtRow(Source, RowNum))
If Not (InstantText Is Nothing) Then
dgLinkLabel.Text = InstantText
End If
End Sub

'----------------------------------------------------------------------
' Helper Methods
'----------------------------------------------------------------------
Private ReadOnly Property DataGridTableGridLineWidth() As Integer
Get
If Me.DataGridTableStyle.GridLineStyle = DataGridLineStyle.Solid Then
Return 1
Else
Return 0
End If
End Get
End Property
Private Sub EndEdit()
InEdit = False
Invalidate()
End Sub
Private Function GetText(ByVal Value As Object) As String
If Value Is System.DBNull.Value Then Return NullText

If Not Value Is Nothing Then
Return Value.ToString
Else
Return String.Empty
End If
End Function
Private Sub HideLinkLabel()
If dgLinkLabel.Focused Then
Me.DataGridTableStyle.DataGrid.Focus()
End If
dgLinkLabel.Visible = False
End Sub
Private Sub RollBack()
dgLinkLabel.Text = OldVal
End Sub
Private Sub PaintText(ByVal g As Graphics, _
ByVal Bounds As Rectangle, _
ByVal Text As String, _
ByVal AlignToRight As Boolean)
Dim BackBrush As Brush = New SolidBrush(Me.DataGridTableStyle.BackColor)
Dim ForeBrush As Brush = New SolidBrush(Me.DataGridTableStyle.ForeColor)
PaintText(g, Bounds, Text, BackBrush, ForeBrush, AlignToRight)
End Sub
Private Sub PaintText(ByVal g As Graphics, _
ByVal TextBounds As Rectangle, _
ByVal Text As String, _
ByVal BackBrush As Brush, _
ByVal ForeBrush As Brush, _
ByVal AlignToRight As Boolean)
Dim Rect As Rectangle = TextBounds
Dim RectF As RectangleF = RectF.op_Implicit(Rect) ' Convert to RectangleF
Dim Format As StringFormat = New StringFormat()
If AlignToRight Then
Format.FormatFlags = StringFormatFlags.DirectionRightToLeft
End If
Select Case Me.Alignment
Case Is = HorizontalAlignment.Left
Format.Alignment = StringAlignment.Near
Case Is = HorizontalAlignment.Right
Format.Alignment = StringAlignment.Far
Case Is = HorizontalAlignment.Center
Format.Alignment = StringAlignment.Center
End Select
Format.FormatFlags = Format.FormatFlags Or StringFormatFlags.NoWrap
g.FillRectangle(Brush:=BackBrush, Rect:=Rect)
Rect.Offset(0, yMargin)
Rect.Height -= yMargin
g.DrawString(Text, Me.DataGridTableStyle.DataGrid.Font, ForeBrush, RectF, Format)
Format.Dispose()
End Sub
End Class

Acess Form Controls

Bruno Lemos2-Aug-02 0:48

Bruno Lemos

2-Aug-02 0:48

Hi all:

I Have 2 controls in Form1 (TextBox1 and Command1).
TextBox1.Text = "111"

Then I have a class (myClass.vb) that inherits Form1
This class as a:

Sub ChangeText()
dim objForm1 as New Form1
objForm1.TextBox1.Text = "222"
End Text

When I click on Command1 i want to go to the ChangeText() in the other class and change TextBox1.Text

Sub Command1_OnClick
dim objmyClass as New myClass
objmyClass.ChangeText()
End Sub

But it doesn't work Cry | :((

How can I change TextBox1 properties or other Control properties that are in Form1.vb from a sub that is in myClass.vb?

Thanx in advance.
Bruno

Use Ctrl+Left/Right to switch messages, Ctrl+Up/Down to switch threads, Ctrl+Shift+Left/Right to switch pages.