Re: Form.ShowDialog() problem - Visual Basic Discussion Boards

In theory this is just a visual thing; if you handle the drawing of the items in the combobox (DrawMode= OwnerDrawFixed and handle the DrawItem event of the combobox) you could display certain items as 'disabled' then handle the SelectedItemChanged event differently for those items and maybe reselect the previous item.

Hope this helps

Tom

Hi all,
I can't find how to break long string constants to the multiple lines.
Example:
Dim mystring as string
string.insert(0, "VeryVeryVery...
.LongLine")

The VB don't understand, that the string constant continues on the nextline.
Please help,
Thanks in advance

You break long strings this way.

dim mystring as string = "A very, very, very " & _
"Long line."

You shouldn't type a very long line in VB. It's really inconvenient.
You may write it to a file such as *.txt, then load it to your string var. It's convenient that: you can easily repair the text. Cool | :cool:

GF bos

Hi,

Can VB.Net convert sprite sheets to animations and if it can is their any examples or any source code available.

I open update forms for specific entities by Form.ShowDialog(). In some Windows XPs it works fine. In some and in WinME and Win98 it opens and immediately closes. For some Form.ShowDialog() it works fine Frown | :(

It seems like a resporce problem. When I open the problematic forms in design view I get the following error:

Failed To Parse code: System.ArgumentOutOfRangeException: Index was out of range. Must be non-negative and less than the size of the collection. Parameter name index.

What can the problem be? It is a very serious problem for me and I am at the edge of losing my customers! I think the only reliable way to develop .net application is notepad development!

I'd say you are either trying to run some code in the form load event that crashes depending on the OS (seen this happen if referencing directory listings when the 'hide known file extensions' of winexplorer is enabled) or your form is corrupted.

If the form is corrupted you should recreate from scractch. If you want to copy/past the code you should paste to notepad first and from there to vs.

Hope this helps.. can't say much more without looking at the code.

Thanks fot the reply. I am rewriting all the forms and this time I am not using Windows Designer.

At the begining one of my friends warned me not to us VS.NET's designer generated code and I did not listen to him Frown | :(

Up to this point VS.NET caused a lot of problems from corrupting hard-coded Turkish characters to this problem.

But I still would like to learn the cause of the problem. I will send you the code.

Imports System.Configuration

Public Class VillageEdit
Inherits System.Windows.Forms.Form

Private useCode As Boolean = True

#Region " Windows Form Designer generated code "

Public Sub New()
MyBase.New()

'This call is required by the Windows Form Designer.
InitializeComponent()

'Add any initialization after the InitializeComponent() call

End Sub

'Form overrides dispose to clean up the component list.
Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
If disposing Then
If Not (components Is Nothing) Then
components.Dispose()
End If
End If
MyBase.Dispose(disposing)
End Sub

'Required by the Windows Form Designer
Private components As System.ComponentModel.IContainer

'NOTE: The following procedure is required by the Windows Form Designer
'It can be modified using the Windows Form Designer.
'Do not modify it using the code editor.
Friend WithEvents Label1 As System.Windows.Forms.Label
Friend WithEvents Label2 As System.Windows.Forms.Label
Friend WithEvents TxtVillageCode As MandraApplication.MTextBox
Friend WithEvents TxtVillageName As MandraApplication.MTextBox
Friend WithEvents Button1 As System.Windows.Forms.Button
Friend WithEvents Button2 As System.Windows.Forms.Button
<system.diagnostics.debuggerstepthrough()> Private Sub InitializeComponent()
Utilities.WriteLog("VillageEdit.InitializeComponent entered")
Dim resources As System.Resources.ResourceManager = New System.Resources.ResourceManager(GetType(VillageEdit))
Me.Label1 = New System.Windows.Forms.Label()
Me.Label2 = New System.Windows.Forms.Label()
Me.TxtVillageCode = New MandraApplication.MTextBox()
Me.TxtVillageName = New MandraApplication.MTextBox()
Me.Button1 = New System.Windows.Forms.Button()
Me.Button2 = New System.Windows.Forms.Button()
Me.SuspendLayout()
'
'Label1
'
Me.Label1.Location = New System.Drawing.Point(8, 16)
Me.Label1.Name = "Label1"
Me.Label1.TabIndex = 0
Me.Label1.Text = "Köy Kodu:"
'
'Label2
'
Me.Label2.Location = New System.Drawing.Point(8, 51)
Me.Label2.Name = "Label2"
Me.Label2.TabIndex = 0
Me.Label2.Text = "Köy Adı:"
'
'TxtVillageCode
'
Me.TxtVillageCode.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.TxtVillageCode.Location = New System.Drawing.Point(120, 16)
Me.TxtVillageCode.MaxLength = 2
Me.TxtVillageCode.Name = "TxtVillageCode"
Me.TxtVillageCode.Size = New System.Drawing.Size(48, 22)
Me.TxtVillageCode.TabIndex = 0
Me.TxtVillageCode.Text = ""
'
'TxtVillageName
'
Me.TxtVillageName.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.TxtVillageName.Location = New System.Drawing.Point(120, 48)
Me.TxtVillageName.MaxLength = 35
Me.TxtVillageName.Name = "TxtVillageName"
Me.TxtVillageName.Size = New System.Drawing.Size(160, 22)
Me.TxtVillageName.TabIndex = 1
Me.TxtVillageName.Text = ""
'
'Button1
'
Me.Button1.Image = CType(resources.GetObject("Button1.Image"), System.Drawing.Bitmap)
Me.Button1.ImageAlign = System.Drawing.ContentAlignment.MiddleRight
Me.Button1.Location = New System.Drawing.Point(8, 96)
Me.Button1.Name = "Button1"
Me.Button1.Size = New System.Drawing.Size(128, 32)
Me.Button1.TabIndex = 2
Me.Button1.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
'
'Button2
'
Me.Button2.Image = CType(resources.GetObject("Button2.Image"), System.Drawing.Bitmap)
Me.Button2.ImageAlign = System.Drawing.ContentAlignment.MiddleRight
Me.Button2.Location = New System.Drawing.Point(152, 96)
Me.Button2.Name = "Button2"
Me.Button2.Size = New System.Drawing.Size(128, 32)
Me.Button2.TabIndex = 3
Me.Button2.Text = "Çıkış [Esc] "
Me.Button2.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
'
'VillageEdit
'
Me.AutoScaleBaseSize = New System.Drawing.Size(6, 15)
Me.ClientSize = New System.Drawing.Size(292, 142)
Me.Controls.AddRange(New System.Windows.Forms.Control() {Me.Button2, Me.Button1, Me.TxtVillageCode, Me.Label1, Me.Label2, Me.TxtVillageName})
Me.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(162, Byte))
Me.Name = "VillageEdit"
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
Me.Text = "VillageEdit"
Me.ResumeLayout(False)
Utilities.WriteLog("VillageEdit.InitializeComponent exited")
End Sub

#End Region

Public Sub New(ByVal v As Village)
Me.New()
Village = v
End Sub

Public Village As Village
Private AutoCodeAssignment As Boolean = False

Private Sub VillageEdit_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Try
Utilities.WriteLog("VillageEdit.VillageEdit_Load entered")
Me.KeyPreview = True
Me.DialogResult = DialogResult.Cancel

AutoCodeAssignment = Boolean.Parse(ConfigurationSettings.AppSettings("autoCodeAssignment"))

If AutoCodeAssignment Then
TxtVillageCode.Enabled = False
End If

If Village Is Nothing Then
Button1.Text = "Ekle [F5]"
Me.Text = "Yeni Köy Ekle"

'Auto generate a village code
If AutoCodeAssignment Then
Dim vf As New VillageFactory(Utilities.Conn)
Dim vc As VillageCollection = vf.RetrieveAll(False)
Dim index As Integer
Dim v As Village

Dim IndexFound As Boolean
For index = 1 To 100
IndexFound = False
For Each v In vc
If index = Convert.ToInt32(v.Code) Then
IndexFound = True
Exit For
End If
Next
If Not IndexFound Then
TxtVillageCode.Text = index.ToString("0#")
Exit For
End If
Next
End If

Else
Button1.Text = "Güncelle [F5]"
Me.Text = "Köy Güncelle"
TxtVillageCode.Text = Village.Code
TxtVillageName.Text = Village.Name
End If
AddHandler TxtVillageCode.KeyUp, AddressOf Control_KeyUp
AddHandler TxtVillageName.KeyUp, AddressOf Control_KeyUp
AddHandler Button1.KeyUp, AddressOf Control_KeyUp
Utilities.WriteLog("VillageEdit.VillageEdit_Load exited")
Catch ex As System.Exception
MaintainanceDevice.ReportException(ex)
End Try
End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Try
'Check Entered village code
If Not Utilities.CheckVillageCodeFormat(TxtVillageCode.Text) Then
MessageBox.Show("Geçersiz köy kodu", "Hata", MessageBoxButtons.OK, MessageBoxIcon.Error)
TxtVillageCode.Focus()
TxtVillageCode.SelectAll()
Exit Sub
End If

If TxtVillageName.Text.Length < 3 Then
MessageBox.Show("Geçersiz köy adı. Köy adı en az 3 en karakterli olabilir.", "Hata", MessageBoxButtons.OK, MessageBoxIcon.Error)
TxtVillageName.Focus()
Exit Sub
End If

Dim Vt As Village
Dim vf As New VillageFactory(Utilities.Conn)

If Village Is Nothing Then
Vt = vf.GetVillage(TxtVillageCode.Text, False)
If Not Vt Is Nothing Then
MessageBox.Show("Sistemde " & Vt.Code & " kodlu bir köy (" & Vt.Name & ") bulunmakta.", "Hata", MessageBoxButtons.OK, MessageBoxIcon.Error)
TxtVillageCode.Focus()
TxtVillageCode.SelectAll()
Exit Sub
End If
Vt = Nothing
Vt = vf.GetVillageByName(TxtVillageName.Text, False)
If Not Vt Is Nothing Then
MessageBox.Show("Bu isimde bir köy sistemde tanımlı", "Hata", MessageBoxButtons.OK, MessageBoxIcon.Error)
TxtVillageName.Focus()
TxtVillageName.SelectAll()
Exit Sub
End If
Village = New Village(0, TxtVillageCode.Text, TxtVillageName.Text)
Village = vf.SaveVillage(Village)
Else
Vt = vf.GetVillage(TxtVillageCode.Text, False)
If Not Vt Is Nothing And Vt.ID <> Village.ID Then
MessageBox.Show("Sistemde " & Vt.Code & " kodlu bir köy (" & Vt.Name & ") bulunmakta.", "Hata", MessageBoxButtons.OK, MessageBoxIcon.Error)
TxtVillageCode.Focus()
TxtVillageCode.SelectAll()
Exit Sub
End If

Vt = vf.GetVillageByName(TxtVillageName.Text, False)
If Not Vt Is Nothing AndAlso Vt.Code <> Village.Code Then
MessageBox.Show("Bu isimde bir köy sistemde tanımlı", "Hata", MessageBoxButtons.OK, MessageBoxIcon.Error)
Exit Sub
End If
Village = vf.SaveVillage(New Village(Village.ID, TxtVillageCode.Text, TxtVillageName.Text))

End If
Me.DialogResult = DialogResult.OK
Me.Close()
Catch ex As System.Exception
MaintainanceDevice.ReportException(ex)
End Try
End Sub

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

Private Sub VillageEdit_KeyUp(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles MyBase.KeyUp
Select Case e.KeyData
Case Keys.F5
Button1.PerformClick()
End Select
End Sub

Private Sub Control_KeyUp(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs)
Try
If sender Is TxtVillageCode Then
If e.KeyData = Keys.Enter Then
TxtVillageName.Focus()
End If
ElseIf sender Is TxtVillageName Then
If e.KeyData = Keys.Enter Then
Button1.Focus()
ElseIf e.KeyData = Keys.Back Then
If TxtVillageName.Text.Length = 0 Then
If Not AutoCodeAssignment Then
TxtVillageCode.Focus()
End If
End If
End If
ElseIf sender Is Button1 Then
If e.KeyData = Keys.Back Then
TxtVillageName.Focus()
End If
End If
Catch ex As System.Exception
MaintainanceDevice.ReportException(ex)
End Try
End Sub
End Class

mmm... Without the missing components (village class, villagefactory,etc.) I can't compile it BUT I see you have a logical problem in the New sub: You receive v (of type Village) and then assign v to a variable 'Village' which has not been declared. The compiler does not seem to complain about this (weird!) but it could explain your problem as it usually not a good idea to name variables the same as classes (specially if the classes are in the same namespace)

Public Sub New(ByVal v As Village)
Me.New()
Village = v
End Sub

I think you meant to call the variable something else and be of type Village.
This variable is later referred to in the form_load procedure:

If Village Is Nothing Then

I don't know what VB.net does about this comparison but my guess is that it will never return true and you'll skip the code that intializes the (wrongly named) Village variable. Come to think of it I have seen MSAcess (VBA) do funky things if you make this kind of mistake.

Hope this helps. Big Grin | :-D

I have converted a VB6 program that I have been given to maintain, to VB.NET.
This VB.NET version works fine on my XP SP2 system but my clients environment is Win2k.
I installed the .Net 1.1 CLI on their system and attempted to run in their environment
but until I recompiled the application on their Win2k environment it would not run.
I would have thought that all I would have needed to do was move the .exe to their PCs
but apparently I am wrong.
Comments please.

Using the code below, I display a Crystal Report. The Crystal Report is populated by a view in sql server. Every time I run this, it always displays the same data, no matter what is in the view. Doesn't make any sense to me.

'Update view with new records
Dim sc As New PK.BusinessLogicLayer.Schedule()
sc.StudyNo = txtStudyNo.Text.Trim
sc.PrintQCS()

Dim QCSDoc As New ReportDocument()

QCSDoc.Load("C:\Inetpub\wwwroot\x\Quota_Control.rpt")

Dim logonInfo As New TableLogOnInfo()
Dim i As Integer

For i = 0 To QCSDoc.Database.Tables.Count - 1
logonInfo.ConnectionInfo.ServerName = serverName
logonInfo.ConnectionInfo.DatabaseName = databaseName
logonInfo.ConnectionInfo.UserID = uid
logonInfo.ConnectionInfo.Password = pwd
QCSDoc.Database.Tables.Item(i).ApplyLogOnInfo(logonInfo)
Next

CRV01.DisplayToolbar = False
CRV01.DisplayGroupTree = False
CRV01.BestFitPage = True
CRV01.ReportSource = QCSDoc

Join Team FreeSoft if you want to make ultimate pro. programs with people all over the world!. you don't have to be a pro. a litle knowledge for VB will do it. For more info write us at: TeamFreeSoft@gmail.com

We need people to:

Coding Standards
Complete Applications
Custom Controls/ Forms/ Menus
Data Structures
Databases/ Data Access/ DAO/ ADO
DDE
Debugging and Error Handling
DirectX
Encryption
Files/ File Controls/ Input/ Output
Games
Graphics
Internet/ HTML
Jokes/ Humor
Libraries
Math/ Dates
Microsoft Office Apps/VBA
Miscellaneous
Object Oriented Programming (OOP)
OLE/ COM/ DCOM/ Active-X
Registry
Sound/MP3
String Manipulation
Translation
VB function enhancement
Windows API Call/ Explanation
Windows CE
Windows System Services

Hey all....
I am pulling my hair out here... I have been searching for a week for a component to VB.Net that will allow me to Fill and then Print a PDF to a printer..... can anyone point me in the right direction?
What I'm trying to do is to have users prompted for some info, fill it out and then produce a print out of a PDF form filled with the information they entered.... the theory doesn't seem that bad...but my god I can't seem to get anywhere's....seems like Printing PDF's through VB is a unusual task...

If anyone has any suggestions or experiences in this area I am certainly welcome to hearing them....

Thanks a bunch....

Mark the Shark

I don't know about native .net components but there are plenty of COM components to do this kind of thing that you could use in Vb.net.

Does it have to be a native .net compoenent?

No... I don't care..... as long as it has the functionality and I can program through it using VB.Net I would be quite happy...

Thanks

Mark

I am in need of refreshing Frame 'B' when a event occurs in frame 'A'. Just point me in the general direction.

TIA
Jerry

How about trying the question in the ASP.NET Forum.

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

Could anyone please help with example code on how to create a dropdown list within a listview column.

i.e
If I have a listview which displayed the following(Name being one column and Access being the second):

Name Access
-------------------
Simon User
Bob User
Fred Admin
John User

But I wanted it so when the user identifies the Access column a dropdown list appears displaying 'User' and 'Admin'

Example of code would be greatly appreshiated.

Thanks

Simon D'Oh! | :doh:

Simon

The crudest way to acheive this is to place a combobox over the listview to give the appearance of a dropdown list in the listview cell. It can work pretty well. I've emailed you the solution as it is a bit long to post here.

If anyone else wants it in the future, post here and i will email it.

Hope this helps

Tom

hey guys if any one of u know about a code that sends emails on net using NB.net please send it to me on my email ..

i had acode the sends this emails .. but theres aproblem with imlementing this code .. an error says "Can't Access CDO.Message Object" .. i need acode for sending emails on net so .. dont be late for replying plz .

im looking too for any resource for learning socket prograing if any one have abook that talk about this topic send it too me on my email or just let me know where to find it thanx alot

my email .

modern_night@hotmail.com 2 MB
modern_knight@gawab.com 2 GB if the message was large you can send it to the second one..

لا اله الا الله محمد رسول الله

check system.web.dll is referenced.

Imports System.Data.OleDb
Imports System.Web.Mail

Private oSMTP As System.Web.Mail.SmtpMail ' Variable which will send the mail
Private Mailmsg As New System.Web.Mail.MailMessage 'variable to hold the message

'if you don't have an SMTP server there is one in IIS and also search for Freee SMTP Server, it's called that and it is exactly what it says on the tin.

Private Sub SendMail(ByVal Email As String, ByVal Body As String)

oSMTP.SmtpServer = "AN SMTP SERVER - eg. IPADDRESS"
Mailmsg.BodyFormat = Web.Mail.MailFormat.Html
Mailmsg.To = Email

Mailmsg.From = "\" & "DisplayName" & "\ <" & "EMAIL ADDRESS - FROM" & ">"
Mailmsg.Subject = "Test" & " " & "Subject" & " " & Today.Date & " "
Mailmsg.Body = Body
oSMTP.Send(Mailmsg)

End Sub

hope that helps

"If i was king cigarettes would be free."

i will try it .. thanx man

لا اله الا الله محمد رسول الله

sorry but im still having the same problem ..
error saying "Can't Access CDO.Message object" i tried it on another pc ... but the same error has occured ..
i hope you tell me an example of what to type in the following fields ..

smtp server ?
email ?
to ?

i typed ..

mail.yalla.com
modern_night@yalla.com
modern_night@hotmail.com

but it didn't work ..
i tried 127.0.0.1 as the smtp server ..

but nothing happend ..

i hope that the solution for this problem .. isn't to leave programing .. waiting for your reply

لا اله الا الله محمد رسول الله

Just wondering how i would go about opening the current users My Documents Folder in an explorer window from a button. I dont want to hard code the path as it wont work if people have redirected it to another location.

Any help would be appreciated.

Kind Regards,
Daniel.

in the registry:

HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\User Shell Folders

the personal key in there provides the path to the mydocuments folder the value is %USERPROFILE%\My Documents

hope that helps