Visual Basic

Userform using text boxes

14-Feb-04 4:36

Are you talking about when you right click on a tab setting it to focused before you "do stuff" to the tabpage. If so I was having this problem the other day and fixed it with a little workaround.

VB.NET

'------------------------------------------------------------------------
' A backhanded way to get the tab we clicked on
'
Private Sub tabFromClick(ByVal e As System.Windows.Forms.MouseEventArgs)
    Dim thisTab As Integer

    For thisTab = 0 To Me.TabCount - 1
        Dim tabRect As Rectangle = Me.GetTabRect(thisTab)
        If tabRect.Contains(New Point(e.X, e.Y)) Then
            Me.SelectedIndex = thisTab
        End If
    Next
End Sub

FSO FileSystemObject

djbugzy13-Feb-04 20:43

djbugzy

13-Feb-04 20:43

I am able to do Upload a file (or copy it) and name it with a variable (moving from a local local to the website) with the following code in the script editor (Frontpage) using the CopyFile Path fso method:

<script language="vbscript">
Sub Submit_OnClick
Dim Path
Dim TheForm
Dim NewFolder
Set TheForm = Document.UploadForm
NewFolder = TheForm.UserName.Value
Dim fso
Dim PictureName
Set fso = CreateObject("Scripting.FileSystemObject")
PictureName = TheForm.PictureName.Value
If IsNull(UploadForm.PictureName.Value) = False Then
fso.CopyFile Path, "C:\Inetpub\wwwroot\ADI\FileUploads\" & NewFolder & "" & PictureName & ".bmp"
Else
End If
End Sub
</script>

But when I go to preview it in the actual browser I get this message:

A Runtime Error has occurred
Do You Wish to Debug?
Error: ActiveX component can't create object 'Scripting.FileSystemObject'

I've been advised that this is caused by security settings and that most PC's are set up this way
Apparantly fso's infringe on security because you have access to files on the hard drive

I've been to all the windows sites and downloaded MDAC 2.1 or better and the latest scripting engines
from microsoft's website, one person even advised uninstalling and reinstalling Frontpage, which I did to no avail. It seems to be actually quite an apidemic, if you tpye in the above error in google.com you get a slew of results.

Well, I'm wondering if there's a more secure way for users to upload files besides using an FSO
Can anyone help me?

Re: FSO FileSystemObject

Hesham Amin13-Feb-04 22:57

Hesham Amin

13-Feb-04 22:57

In client side scripting you can't access the file system
this is very harmfull for internet users
I read about *.hta applications (web pages hosted in browser) that can do this. But I have no more info about them.

EZ-V13-Feb-04 18:11

EZ-V

13-Feb-04 18:11

Can anyone tell me how text can re-appear in the text box that was previously entered when the userform is re-opened.

The way my code is written now. When you re-open the userform the text boxes are automatically cleared for new text to be entered.

Please look at this code below:
Private Sub cmdOK Click()
If textbox1.TextLength > 0 Then
ActiveSheet.Cells(5, 2).Value = textbox1.Text
Unload UserForm1
Else
MsgBox "You are required to enter text. Please enter it now.", vbCritical
End If
End Sub

If you have any code examples, please share them with me. Thanks. I would really appreciate the help.

Re: Userform using text boxes

Nadroj13-Feb-04 18:44

Nadroj

13-Feb-04 18:44

hmm.. sry to get ur hopes up. u prolly think iv got a solution, which i dont. Poke tongue | ;-P

i dont know anything about these userforms your talking about. iv worked with vb6 windows apps, but not in vb.net. only console apps. i am prolly way off, but, couldnt u just make a hidden text box or label to store the previous forms' value?

------------------------
Jordan.
III

Cannot create Enum Type from Type.GetType("EnumName")

Dallas Matthews13-Feb-04 8:39

Re: Cannot create Enum Type from Type.GetType("EnumName")

13-Feb-04 8:39

I need to create an instance of an enum at runtime, so I had thought the Type.GetType(typeName As String) would be sufficient. However, this seems to be not the case.

Public Function GetEnumNames(ByVal enumName As String) As String()
    Dim t As Type = Type.GetType(enumName) ' returns nothing
    ' if it worked, then I could do something like this...
    Dim names() As String = [Enum].GetNames(t)
    Return names
End Function

Is there something I am missing? Or does it not work with Enums?

Thanks in advance,
Dallas

Matthew Hazlett13-Feb-04 9:00

Re: Cannot create Enum Type from Type.GetType("EnumName")

13-Feb-04 9:00

[Enum].GetNames(Type.GetType(myEnum))

Dallas Matthews13-Feb-04 9:08

Re: Cannot create Enum Type from Type.GetType("EnumName")

13-Feb-04 9:08

Type.GetType(typeName As String) expects a string variable.

Besides, I do not know what enum will be thrown to the function so I cannot give it a specific enum declaration.

Matthew Hazlett13-Feb-04 9:56

Re: Cannot create Enum Type from Type.GetType("EnumName")

13-Feb-04 9:56

Sorry its just getType not type.gettype

like this:

objectState is a public enum.

Dim tmp As String<br />
<br />
        For Each tmp In [Enum].GetNames(GetType(objectState))<br />
            Console.WriteLine(tmp)<br />
        Next

Dallas Matthews14-Feb-04 7:23

Re: Cannot create Enum Type from Type.GetType("EnumName")

14-Feb-04 7:23

I am not refering to the GetType operator, but to the GetType method of the Type class in the System namespace.
Just type in System.Type.GetType(...) and intellisense will show you the shared method I am trying to use.

Matthew Hazlett14-Feb-04 7:44

Re: Cannot create Enum Type from Type.GetType("EnumName")

14-Feb-04 7:44

huh, what are you trying to do. I guess I dont see what you want to accomplish.

[enum].getNames(gettype(myEnum)) will get the names in the enum
[enum].getName(gettype(myEnum, myVar)) will get a name of an enmum variable

dim value as myenum
will create an instence of the enum (like you said in your first post)

Dallas Matthews16-Feb-04 3:38

keyboard hooking in VB.net

16-Feb-04 3:38

My bad....

Turns out the enum I was working with was declared within a class (I guess I had to leave for the weekend to figure it out). Once I moved it so it was no longer nested, it worked.

matthew kelly13-Feb-04 6:01

matthew kelly

13-Feb-04 6:01

I have found these (2) articles on keyboard hooking by Paul Kimmel @ codeguru.com and am looking for discussion threads that might have occured around them. I am looking for an vb.net projec examples that use the module.

Managing Low-level Keyboard Hooks in VB .NET
Dated April 18, 2003
http://www.codeguru.com/vb_system/PK041803.html

Managing Low-Level Keyboard Hooks with the Windows API
Dated November 18, 2002
http://www.codeguru.com/vb_system/PK111802.html

I would think that there would be a discussion thread about the articles at this site, but I can't seem to find it.

Thank you for your time and attention.

Sincerely,

Matthew Kelly
vb.net programmer newbe

Dave Kreskowiak13-Feb-04 9:46

Dave Kreskowiak

13-Feb-04 9:46

What would you like to know?

RageInTheMachine9532

matthew kelly18-Feb-04 13:48

matthew kelly

18-Feb-04 13:48

I am currently using the vb.net module included in the above article. The code works really well. I am trying to add to this project a new class “CurrentWindowWithKeyboardFocus” , which will include variables and functions that will determine

Handle to window with keyboard focus
window x position
window y position
window width
window height

What I am confused about is how I can get the handle of the window that has the keyboard focus. Is it a handle to a process??

I have attached a preliminary copy of my new class. I am looking for recommendations?? Should the class inherit from "System.Windows.Forms.Control"??

Thanks for your time and attention.

Public Class CurrentWindowWithKeyboardFocus

Inherits System.Windows.Forms.Control

Public CurrentWindow As Control

Private CWXPosition As Integer
Private CWYPosition As Integer
Private CWWidth As Integer
Private CWHeight As Integer
Private CWHandle As IntPtr

Public Sub New()
'gets the handle to the window
CWHandle = HandleOfCurrentWindow()

'gets the x postion of the window
CWXPosition = XPositionOfCurrentWindow(CWHandle)

'gets the y position of the window
CWYPosition = YPositionOfCurrentWindow(CWHandle)

'gets the width of the window
CWWidth = WidthOfCurrentWindow(CWHandle)

'gets the height of the window
CWHeight = HeightOfCurrentWindow(CWHandle)

End Sub

Public Function HandleOfCurrentWindow()
Dim WindowHandle As Integer
Dim p As Process
p = Process.GetCurrentProcess
WindowHandle = Process.GetCurrentProcess.Handle.ToInt32
'get handle of current window
'return handle
Return WindowHandle

End Function

Public Function XPositionOfCurrentWindow(ByRef intptr)
Dim xpos
'get x position of current window
'return integer
Return xpos

End Function

Public Function YPositionOfCurrentWindow(ByRef intptr)
Dim Ypos
'get y position of current window
'return integer
Return Ypos

End Function
Public Function WidthOfCurrentWindow(ByRef intptr)
Dim Width
'get width of current window
'return integer
Return Width

End Function

Public Function HeightOfCurrentWindow(ByRef intptr)
Dim Height
'get width of current window
'return integer
Return Height

End Function

End Class

Dave Kreskowiak18-Feb-04 19:29

Dave Kreskowiak

18-Feb-04 19:29

matthew kelly wrote:

Public Function HandleOfCurrentWindow()
Dim WindowHandle As Integer
Dim p As Process
    p = Process.GetCurrentProcess
    WindowHandle = Process.GetCurrentProcess.Handle.ToInt32
    'get handle of current window 
    'return handle
    Return WindowHandle
End Function

Well, first of all, your not getting the Window handle of the CurrentProcess. Your actually returning the handle to the Process itself, not it's Window. You have to use the MainWindowHandle propery of the process:

Dim WindowHandle as IntPtr
    p = Process.GetCurrentProcess
    WindowHandle = Process.GetCurrentProcess.MainWindowHandle()

Now, after you get that, you can't use it in .NET to get the parameters of the window you want. .NET doesn't expose such functionality. But! You can use that window handle to get the parameters using the Win32 API. But! Some of the values you get back will probably surprise you!

Send me an email address to send you the sample I wrote. It's a little too big to post here!

All you have to do is click on other windows, like the VS IDE to see some interesting Normal Position values. Try it with an IE window too.

RageInTheMachine9532

Matthew Hazlett13-Feb-04 10:20