Visual Basic

8-Aug-02 10:52

Helo
Im new to VB-programming but im a good on ASP (VB-script).

In ASP I inserted a chr(13) if i wanted a [enter] in my HTML-kod.

But concating a chr(13) in a String ends up whit a square.

HELP !!!

Nick Parker8-Aug-02 11:47

Nick Parker

8-Aug-02 11:47

You could try Chr(10), this may work. Are you using VB6 or VB.NET

Nick Parker

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)

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

Anonymous9-Aug-02 8:50

Anonymous

9-Aug-02 8:50

Isn't this what vbCrlf is for?

Knappen9-Aug-02 9:27

VBScript keyCode constants??

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
)

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

Re: Nested Classes (after much hair pulling)

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?

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

Re: Nested Classes (after much hair pulling)

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?

Ray Cassick6-Aug-02 3:49

Control array annoyances...

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...

Ray Cassick5-Aug-02 9:55

Storing input to a cell in excel

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...

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