ricardog

Visual basic 2008

Ik werk met vb 2008

Dat was ook de bedoeling om hem niet naar de c:\ map de zetten alleen ik wou het ff als voorbeeld hebben hij komt in programfiles/mijnsoftwarenaam te staan. Ik zelf heb al alles geprobeerd wat ik kon en ik kwam er niet uit. Hopelijk kan je me helpen

hallo, Ik ben bezig met een vb programma en als ik een printscreen maak genaamd formimage kan ik hem nu saven naar een map die ik zelf wil kiezen en opslaan als bmp. Nu wil ik graag dat die automatisch naar c:\foto1.bmp gaat en als die al bestaat naar foto2 etc hier is de script foor het opslaan. Dim savefiledialog1 As New SaveFileDialog Try savefiledialog1.Title = "Save File" savefiledialog1.FileName = "*.bmp" savefiledialog1.Filter = "Bitmap |*.bmp" If savefiledialog1.ShowDialog() = DialogResult.OK Then formImage.Save(savefiledialog1.FileName, System.Drawing.Imaging.ImageFormat.Bmp) End If Catch ex As Exception trouwens is er een manier om je webbrowser (foto ervan) naar c:\foto1 op te slaan ? hopelijk kunnen jullie me helpen met de script alvast bedankt!

hallo, Ik ben bezig met een vb programma en als ik een printscreen maak genaamd formimage kan ik hem nu saven naar een map die ik zelf wil kiezen en opslaan als bmp. Nu wil ik graag dat die automatisch naar c:\foto1.bmp gaat en als die al bestaat naar foto2 etc hier is de script foor het opslaan. Dim savefiledialog1 As New SaveFileDialog Try savefiledialog1.Title = "Save File" savefiledialog1.FileName = "*.bmp" savefiledialog1.Filter = "Bitmap |*.bmp" If savefiledialog1.ShowDialog() = DialogResult.OK Then formImage.Save(savefiledialog1.FileName, System.Drawing.Imaging.ImageFormat.Bmp) End If Catch ex As Exception trouwens is er een manier om je webbrowser (foto ervan) naar c:\foto1 op te slaan ? hopelijk kunnen jullie me helpen met de script alvast bedankt!

Helaas dat werkt ook niet dat behoord tot mijn intro form en die is wel goed maar de form die de intro te voorschijn laat komen die kan juist niet weg. ps. Bedankt voor de moeite om me te helpen

me.hide is dat het zich zelf verstopt anders zou het dus licentie.hide worden en dat kan niet want dat moet dan me.hide worden als die zich zelf wilt verstoppen.

Werkt ook niet dit is de code van de intro: Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick ProgressBar1.Increment(1) If ProgressBar1.Value = ProgressBar1.Maximum Then Me.Hide() licentie.Show() End If dan komt de licentie (de form dat niet weg wilt) deze functie opent dan de basis form Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click If TextBox1.Text.Length = 12 Then If WebBrowser1.DocumentText.Contains(TextBox1.Text) Then MsgBox("Gefeliciteerd de code " & TextBox1.Text & " is gevonden in de licentielijst!", MsgBoxStyle.Information) optie.Visible = True Me.Visible = False Else MsgBox("niet gevonden ?") End If Else MsgBox("u heeft te veel of te weinig leestekens gebruikt", MsgBoxStyle.Exclamation) End If End Sub Hopelijk weet je meer

Dank je voor de reactie maar helaas dat is niet de oplossing precies hetzelfde als hide is dat:boring:

Hallo, Ik gebruik visual basic voor een programma te progammeren. Nu is het probleem als ik op kruisje klik bij de 2é form (1é is intro) dan komt die direct weer tevoorschijn terwijl ik als commando me.hide en dat hij form3 moet starten met form3.show. Als ik dus beide formen voor me heb staan kan ik form 2 maar niet wegkrijgen en form 3 wel gewoon. Weet iemand de oplossing? alvast bedankt!xD

mmm ik zie nie echt iets staan bij properties waar ik double neer kan zetten. Ik kijk er vast overheen maar weet jij uit je hooft waar dat precies staat? of kan je deze code zo veranderen dat die dat automatisch doet? (2 decimalen afronden) code: Label73.Text = CStr(Conversion.Val(Label5.Text) + Conversion.Val(Label6.Text) + Conversion.Val(Label7.Text) + Conversion.Val(Label8.Text) + Conversion.Val(Label17.Text) + Conversion.Val(Label18.Text) + Conversion.Val(Label19.Text) + Conversion.Val(Label20.Text) + Conversion.Val(Label21.Text) + Conversion.Val(Label22.Text) + Conversion.Val(Label23.Text) + Conversion.Val(Label24.Text) + Conversion.Val(Label26.Text) + Conversion.Val(Label28.Text) + Conversion.Val(Label30.Text) + Conversion.Val(Label32.Text) + Conversion.Val(Label34.Text) + Conversion.Val(Label36.Text)).Replace(","c, "."c) Alvast bedankt!

Ok, bedankt mrcash! ik ga het vrijdag proberen want, ik zit nu nog in Turkijke en heb de broncode niet bij de hand. groet, RicardoG:-)

Ik heb nog 1 vraagje. Ik zou graag mijn komma getallen op 2 decimalen willen afronden wan ik heb bijv: 2903,118 dan moet dus,12 worden. Weet iemand de oplossing? alvast bedankt!!!

Ja bedankt mrcash deze code had ik toevallig ook bij de Updater toegevoegd omdat de hele applicatie moest afsluiten om de bestanden te vervangen In iedergeval ik heb net wel even een sluit knop aangemaakt applicatie.exit gelt gelukkig voor alle forms dus ik kan mooi op de laatste pagina een sluit knop maken. Dus dit is ook opgelost verder nog ideeen? of weet je iets om het uiterlijk te verbeteren? groet, RicardoG

ok bedankt voor je antwoord