Visual Basic

johnjsm20-Dec-04 22:09

20-Dec-04 22:09

Thank you so much for this code. One question. Does this only wory for txt files or can other extensions be used. The two file extensions i'm trying to display is .cdimage and .dvdimage
I tried changing the "txt" in the code you gave me but it did not work.
Any ideas.
Once again Thank you for the code

Nicholas Cardi21-Dec-04 4:14

21-Dec-04 4:14

Sorry about that. There is a small bug. I tested it with txt files.

Here is the fix you need to make.

In the MatchesExtension Function change

sTemp = sTemp & sChar

TO

sTemp = sChar & sTemp

if you want to add different/more file types you can do some thing like this in the
commandbutton click event

For Each fi In fld.Files
If MatchesExtension("cdimage", fi.Name) Then
List1.AddItem fi.Name
End If
If MatchesExtension("dvdimage", fi.Name) Then
List1.AddItem fi.Name
End If
'Keep adding file extensions. by duplicating the code above
Next

Forever Developing

johnjsm21-Dec-04 4:56

21-Dec-04 4:56

Thank you so much. You the man
I'm wondering if i could ask you one more thing.
I was trying to change your code so that I could get it to do the following.

i need to separate the file name eg 50678.cdimage. so that the 50678 goes into one text box and the .cdimage goes into another text box. would you be able to help on this.
Thanks

johnjsm22-Dec-04 0:25

22-Dec-04 0:25

johnjsm22-Dec-04 0:24

22-Dec-04 0:24

Nicholas Cardi22-Dec-04 5:04

22-Dec-04 5:04

I am not sure what you are asking for here.

You want to enter a file name in a text box and have the name and extension split into to differnet text boxes?

Forever Developing

johnjsm22-Dec-04 5:35

22-Dec-04 5:35

You hit the nail on the head. I was trying with your code but with no success. Is this possible. If you could help I would be so greatful. This will make the program i'm working on work perfectly.

Nicholas Cardi22-Dec-04 5:51

22-Dec-04 5:51

Add a command button.
Name it cmdSplit called split

Add 3 text boxes.
Name the first one txtFileName
Name the second one txtFile
Name the third one txtExtension

Private Sub cmdSplit_Click()

SplitFileNameOnDot (txtFileName.Text)

End Sub

Private Function SplitFileNameOnDot(sFileName As String)
Dim sChar As String
Dim sTemp As String
Dim sName As String
Dim sExtension As String
Dim bGotExtension As Boolean
Dim I As Long

For I = Len(sFileName) To 1 Step -1
sChar = Mid(sFileName, I, 1)

If bGotExtension = False Then
sExtension = sChar & sExtension
Else
sName = sChar & sName
End If

If sChar = "." Then
bGotExtension = True
End If
Next I

txtExtension.Text = sExtension
txtFile.Text = sName

End Function

Forever Developing

johnjsm22-Dec-04 6:18

Using drag and Drop picture to a label or something else for a scrabble game Im developing

22-Dec-04 6:18

This is absoutly brilliant. My code is now finished. With out the help you gave me I don't know what i would have done. Wish I was a brainy as you.

Thank you so much

sourcezilla20-Dec-04 0:51

sourcezilla

20-Dec-04 0:51

Is there any way that I can use the drag,drop effect for my scrabble game Im developing I want to drag a picture and drop onto a label and then show the picture in the target control that was previously in the sender?? Is there a way been searching for ages for help let me know please.....thanx!!

Re: Using drag and Drop picture to a label or something else for a scrabble game Im developing

Tom John20-Dec-04 2:28

Tom John

20-Dec-04 2:28

Here's how to drag an image back and forth between a couple of picture boxes:

Protected Overrides Sub OnLoad(ByVal e As EventArgs)

    PictureBox1.Image = Image.FromFile("MyImage.bmp")
    PictureBox1.AllowDrop = True
    PictureBox2.AllowDrop = True

End Sub

Private dragSource As PictureBox

Private Sub PictureBox_MouseMove(ByVal sender As Object, ByVal e As MouseEventArgs) _
    Handles PictureBox1.MouseMove, PictureBox2.MouseMove

    'Initiate a drag if left mouse button is down
    If e.Button = MouseButtons.Left Then
        dragSource = CType(sender, PictureBox)
        DoDragDrop(CType(sender, PictureBox).Image, DragDropEffects.Move)
    End If

End Sub

Private Sub PictureBox_DragEnter(ByVal sender As Object, ByVal e As DragEventArgs) _
    Handles PictureBox1.DragEnter, PictureBox2.DragEnter

    If (Not dragSource Is Nothing) AndAlso (Not sender Is dragSource) Then
        e.Effect = DragDropEffects.Move
    End If

End Sub

Private Sub PictureBox_DragDrop(ByVal sender As Object, ByVal e As DragEventArgs) _
    Handles PictureBox1.DragDrop, PictureBox2.DragDrop

    If (Not dragSource Is Nothing) AndAlso (Not sender Is dragSource) Then
        CType(sender, PictureBox).Image = dragSource.Image
        dragSource.Image = Nothing
        dragSource = Nothing
    End If

End Sub

Hope this helps

Tom

Resizing the Windows Form through code once it has been maximized

Tweetyshwet19-Dec-04 23:12

Tweetyshwet

19-Dec-04 23:12

hi all
i am currently working on winforms. i am facing a problem in resizing the window once it has been maximized.
Well i have a form with 2 buttons. one for maximising and the other for restoring the form to its original size/any specified size.
in the click event of the first button.. i set the forms's WindowState to FormWindowStae.Maximized. now when i click the second button i want to change the form size back to its original size before being maximized or to some size.i know i can restore the size of the form by using the restore button in the ControlMenu..i dont want to use it. i want to use the second button to do it. i tried setting new values to the Size property of the Form but is of no use.
can anyone please help me in finding as to how i can change the form's size once it has been maximized through code?
thanks and regards

Re: Resizing the Windows Form through code once it has been maximized

Tom John20-Dec-04 0:42

Tom John

20-Dec-04 0:42

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

    Me.WindowState = FormWindowState.Maximized

End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

    Me.WindowState = FormWindowState.Normal

End Sub

Or did i miss read the question?

Hope this helps

Tom

P.S. can you delete your duplicate posting please?

Running Bytes of array from memory

matrixcine19-Dec-04 22:50

matrixcine

19-Dec-04 22:50

Hi there.
I just finished decrypting a file and its in a buffer i created in memory. The problem i'm having now is that I want to run the process directly from memory and not copy the bytes to a file and run. Its unfortunate that the I can't find any Windows API functions that can do that or maybe there is a combination of functions that can effect that.. I don't know. Please i need help.. and fast. Thanks.
I'm using visual Basic 6 not .NET.

re

Re: Running Bytes of array from memory

Dave Kreskowiak20-Dec-04 1:12

Dave Kreskowiak

20-Dec-04 1:12

AFAIK, you can't in VB6. In C++, this is easily possible, but not ib VB6. I haven't seen any API that allow you to change the program exection like that.

RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome

Re: Running Bytes of array from memory

Anonymous20-Dec-04 2:17

Anonymous

20-Dec-04 2:17

So if its not possible in VB6, then what. I can't program in C++. Help me out.

Re: Running Bytes of array from memory

Dave Kreskowiak20-Dec-04 3:31

Dave Kreskowiak

20-Dec-04 3:31

I hate repeating myself -> It's not possible to do in VB6!

After further consideration, you have a second problem though...

If you decrypted an .EXE file, you can't just jump to the file in memory. It must be read and processed by the Loader in Windows. You used to be able to do this with .COM files because they are "memory image" files. What's in the file is exactly what get loaded into memory. .EXE files are not like this at all. They are segment processed and loaded sections at a time and must be setup in memory before the starting point is jumped to.

There is no API function that will process and load the file from memory, only from a valid .EXE. So, the only solution you have is what you're already doing.

RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome

ivr

Geo Varghese19-Dec-04 22:21

Geo Varghese

19-Dec-04 22:21

can anybody be able to help me in creating a interactive voice responce system in vb.net(using modem).

geo

Re: ivr

Colin Angus Mackay20-Dec-04 1:58

Colin Angus Mackay

20-Dec-04 1:58

Geo varghese wrote:
can anybody be able to help me in creating a interactive voice responce system in vb.net

You may want to start by looking at the Speech Application SDK[^]

Do you want to know more?
WDevs.com - Member's Software Directories, Blogs, FTP, Mail and Forums

RE VB6 NETWORK SCRIPT

sltan19-Dec-04 22:10

sltan

19-Dec-04 22:10

I am using vb6 to develop a client server applications. At installation site there are nearly 50 pcs using the application which is installed on each pc. But when there are changes in the application and a new executable file is prepared I need to install it again on all the pcs. Is there any way by which i can install the executable file on all the pcs instead of physically going to each pc ? or can i share the executable file that resides at a centralized location ? Please help me out

SL Tan

Re: RE VB6 NETWORK SCRIPT

Nicholas Cardi20-Dec-04 6:05