Visual Basic

Re: Picture Box won't show on second form

19-Jun-03 18:34

I want to add a PictureBox to another form. But when I go from form1 to form2, the picture in form2 won't show. Why is this?

I use this code:
dim frmForm2 as new form
frmForm2.showdialog

I've also tried just frmForm2.show

What am I doing wrong?

Should I create a new picturebox in code?

I need sleep....zzzzzzzzzz Sleepy | :zzz:

Thank you

The Jazz Master 6000

DJ Badknees

Parma Grind Crew - www.geocities.com/parmagrindcrew

dynamic20-Jun-03 2:13

Re: Picture Box won't show on second form

20-Jun-03 2:13

here ya go :
VB:

<font color="blue">Private</font> <font color="blue">Sub</font> Button1_Click(<font color="blue">ByVal</font> sender <font color="blue">As</font> System.Object, <font color="blue">ByVal</font> e <font color="blue">As</font> System.EventArgs) <font color="blue">Handles</font> Button1.Click
        <font color="blue">Dim</font> frm <font color="blue">As</font> <font color="blue">New</font> Form2() <font color="darkgreen">'/// must say as new Form2() not Form</font>
        frm.Show()
    <font color="blue">End</font> <font color="blue">Sub</font>

hope this helps. Smile | :)

<font color="blue">Private void</font> ExpectingTwins(<font color="blue">string</font> twins)
    {    
    <font color="blue">switch</font>(twins)
    {
    <font color="blue">Case</font> ("twins on the way"):
        MessageBox.Show("for mr and mrs dynamic","twins on the way");
    <font color="blue">break</font>;
    }
    }

Jm6k23-Jun-03 11:45

23-Jun-03 11:45

Thanks A Lot

The Jazz Master 6000

DJ Badknees

Parma Grind Crew - www.geocities.com/parmagrindcrew

MS Code Advisor rules?

Onuk19-Jun-03 3:28

Onuk

19-Jun-03 3:28

I am handling an upgrade from VB6 to VB.NET and want to use the opportunity to improve coding standards and overhaul some old code.

I would like to use the MS Code Advisor to check up the code before going into the transition phase. To do this I would like to extend the set of rules to cover a much broader range of coding standard rules. Apparently the Code Advisor can be extended in two ways; first by using VBScript regexps, obviously somewhat limited in scope; second by implementing the IRuleHandler interface to add your own rule classes. However althought the first is copiously documented (no doubt because it is self-explanatory) the second receives no attention whatsoever, and I can't google it anywhere.

Does anyone, know of docs on the interface and the available support routines?

Thanks

Onuk

vb6 freezing help

DxSolo18-Jun-03 3:13

DxSolo

18-Jun-03 3:13

i have a program that goes into a folder looks into each subfolder and gets all the .jpg files and stores the file names in an array which i then use to insert the path into a msde database. My problem is either one of two things happen

1.the form freezes but the program still does what it needs to

2.or the program simply just freezes

the machine i am using has 1 ghz processor and 786 mb ram and my uses will not have computers even close to this so anybody have any suggestions?

Re: vb6 freezing help

DxSolo18-Jun-03 5:07

DxSolo

18-Jun-03 5:07

nevermind i got it fixed

dynamic17-Jun-03 21:43

17-Jun-03 21:43

you mean something like this :
VB:

<font color="blue">Private</font> <font color="blue">Sub</font> Button3_Click(<font color="blue">ByVal</font> sender <font color="blue">As</font> System.Object, <font color="blue">ByVal</font> e <font color="blue">As</font> System.EventArgs) <font color="blue">Handles</font> Button3.Click
        <font color="blue">Dim</font> someStuff <font color="blue">As String</font>
        <font color="blue">Dim</font> i <font color="blue">As Integer</font>

        <font color="blue">For</font> i = 1 <font color="blue">To</font> 4
            TextBox1.AppendText(someStuff & "  : part : " & i & vbCrLf)
            <font color="darkgreen">'/// do your stuff here .</font>
        <font color="blue">Next</font>

    <font color="blue">End</font> <font color="blue">Sub</font>

putting your stuff to do where it says "TextBox1.AppendText"

<font color="blue">Private void</font> ExpectingTwins(<font color="blue">string</font> twins)
    {    
    <font color="blue">switch</font>(twins)
    {
    <font color="blue">Case</font> ("twins on the way"):
        MessageBox.Show("for mr and mrs dynamic","twins on the way");
    <font color="blue">break</font>;
    }
    }

oliver_twistor17-Jun-03 22:08

oliver_twistor

17-Jun-03 22:08

Thanks. But I don't quite understand how to implement that in my program. It's maybe best to show you the code in question.

<br />
    Private Sub K_Sten_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles K_Sten.Click<br />
        /.../<br />
    End Sub<br />
<br />
    Private Sub K_Sax_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles K_Sax.Click<br />
        /.../<br />
    End Sub<br />
<br />
    Private Sub K_Pase_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles K_Pase.Click<br />
/.../<br />
    End Sub<br />
<br />
    Private Sub K_Klar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles K_Klar.Click<br />
/.../<br />
    End Sub<br />
<br />
    Private Sub Huvud_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load<br />
/.../<br />
    End Sub<br />
<br />
    Private Sub K_Ny_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles K_Ny.Click<br />

This is where I want to go back to: Sub K_Sten_Click; Sub K_Sax_Click; Sub K_Pase_Click; Sub K_Klar_Click.

All of my subroutines runs independent of each other.

<br />
<br />
    Private Sub M_Avsluta_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles M_Avsluta.Click<br />
/.../<br />
    End Sub<br />
<br />
    Private Sub M_Om_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles M_Om.Click<br />
/.../<br />
    End Sub<br />

//OT

dynamic18-Jun-03 3:31

18-Jun-03 3:31

are you saying you want to cause the triggering of all those buttons in an event? so the loop causes these to do something : Sub K_Sten_Click; Sub K_Sax_Click; Sub K_Pase_Click; Sub K_Klar_Click.

<font color="blue">Private void</font> ExpectingTwins(<font color="blue">string</font> twins)
    {    
    <font color="blue">switch</font>(twins)
    {
    <font color="blue">Case</font> ("twins on the way"):
        MessageBox.Show("for mr and mrs dynamic","twins on the way");
    <font color="blue">break</font>;
    }
    }

oliver_twistor18-Jun-03 22:07

oliver_twistor

18-Jun-03 22:07

No, I just want those Sub routines to be reset when clicked on a button.

//OT

Sounds and .WAV using MMControl 6.0

oliver_twistor22-Jun-03 9:18

oliver_twistor

22-Jun-03 9:18

Now I have fixed the problem.

//OT

Jm6k17-Jun-03 13:16

Re: Sounds and .WAV using MMControl 6.0

17-Jun-03 13:16

In Visual Basic 6 in Highschool we used MMControl 6.0 in order to play .WAV files in our applications?

That Was a long time ago. Can anyone please tell me where I can find some code in order to play sounds in my Application

Thank You

The Jazz Master 6000

DJ Badknees

Parma Grind Crew - www.geocities.com/parmagrindcrew

dynamic17-Jun-03 13:50

Re: Sounds and .WAV using MMControl 6.0

17-Jun-03 13:50

in vb.net do this :
VB:

<font color="blue">Private</font> <font color="blue">Declare</font> <font color="blue">Function</font> sndPlaySound <font color="blue">Lib</font> "winmm.dll" <font color="blue">Alias</font> "sndPlaySoundA" _
              (<font color="blue">ByVal</font> lpszSoundName <font color="blue">As String</font>, <font color="blue">ByVal</font> uFlags <font color="blue">As Integer</font>) <font color="blue">As Integer</font>
    <font color="blue">Const</font> SND_SYNC <font color="blue">As Integer</font> = &H0
    <font color="blue">Const</font> SND_ASYNC <font color="blue">As Integer</font> = &H1
    <font color="blue">Const</font> SND_NODEFAULT <font color="blue">As Integer</font> = &H2
    <font color="blue">Const</font> SND_LOOP <font color="blue">As Integer</font> = &H8
    <font color="blue">Const</font> SND_NOSTOP <font color="blue">As Integer</font> = &H10
    <font color="blue">Dim</font> SoundName <font color="blue">As String</font>, wFlags <font color="blue">As Integer</font>, x <font color="blue">As String</font>

<font color="blue">Private</font> <font color="blue">Sub</font> Button2_Click(<font color="blue">ByVal</font> sender <font color="blue">As</font> System.Object, <font color="blue">ByVal</font> e <font color="blue">As</font> System.EventArgs) <font color="blue">Handles</font> Button2.Click
    SoundName = "D:\Knock.wav"
    wFlags = SND_ASYNC <font color="blue">Or</font> SND_NODEFAULT
    x = sndPlaySound(SoundName, wFlags)
    

<font color="blue">End</font> <font color="blue">Sub</font>

putting your sound file's name where it says "D:\Knock.wav"

hope that helps Smile | :)

<font color="blue">Private void</font> ExpectingTwins(<font color="blue">string</font> twins)
    {    
    <font color="blue">switch</font>(twins)
    {
    <font color="blue">Case</font> ("twins on the way"):
        MessageBox.Show("for mr and mrs dynamic","twins on the way");
    <font color="blue">break</font>;
    }
    }

Jm6k18-Jun-03 7:10