|
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 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.
|
|
|
|
|
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
|
|
|
|
|
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
|
|
|
|
|
How do i utilise that to open an explorer window to that path.
Thanks
|
|
|
|
|
Hai
I want to add balloontooltips for statusbar panels how can i do this in vb.net
lakshmikala
|
|
|
|
|
have code in VB6 if you require email me and i'll send it you.
"If i was king cigarettes would be free."
|
|
|
|
|
I need a sample app in VB that
Using a graphical user interface that calculates and displays the mortgage payment amount from user input of the amount of the mortgage, the term of the mortgage, and the interest rate of the mortgage. Allow the user to loop back and enter new data or quit.
If you could provide sample code I would greatly appreciate it.
|
|
|
|
|
I am trying to use MSHTML without the webbrowser and I am having a few problems. Right now all I am trying to do is load an URL(html page) and access its innerhtml.
What I have is:
Dim doc As mshtml.HTMLDocument = New mshtml.HTMLDocument()
Dim d1 As mshtml.IHTMLDocument4 = doc
Dim d2 As mshtml.IHTMLDocument4 = doc
d2.write("test")
d2.close()
MsgBox(d2.body.innerHTML)
d2 = d1.createDocumentFromUrl("http://www.msnbc.com", "")
MsgBox(d2.readystate)
It seems like I am able to load the url correct (ran a packet sniffer), however, I cannot figure out how to detect that it has completed. I looked in the web and there were some old examples using:
While d2.readyState <> "complete"
DoEvents
End While
But when I tried it started using 100% of the cpu and it never ended.
Any suggestions/ideas? Also can you point me to any good tutorials that explain how to use of mshtml and vb.net
thanks
|
|
|
|
|
vb.net
How can load a Image in to a TabControl.
normally we can load the Image through property. It's Ok.
The Image is not covered the whole part of the tabControl.
Tabbutton always gray.
How can put a Image on the top of the tabcontrol.
Please Help Me
|
|
|
|