Re: Display a form in Sub Main() - Visual Basic Discussion Boards

how to know if a tooltip is displayed or not when mouse is moved

Anonymous29-Mar-05 19:18

Anonymous

29-Mar-05 19:18

how to know if a tooltip is displayed or not when mouse is moved over minimize,maximise,close icon on title

Display a form in Sub Main()

Mahesh167929-Mar-05 18:50

Mahesh1679

29-Mar-05 18:50

Hi To ALL!

In VB.NET, i need to display a form in Sub Main().I have written code something like this but its not working. Pls help me ...

Public Sub main()

dim frm as new form1()
frm.show()

End sub

Thanks

Mahesh

Re: Display a form in Sub Main()

sumit2129-Mar-05 19:46

sumit21

29-Mar-05 19:46

well its very difficult from this code to pointout ur error
but i got two points

1. check ur startup object. is it sub main ?

2. u are writing dim frm as ew form1()
istead try out
public frm as new form1()

even if this does not work, then u better make a module
and write the staatement there
public frm as new form1()

then in main u can use frm.show()

hope this will work

sumit

Re: Display a form in Sub Main()

Mahesh167929-Mar-05 20:12

Mahesh1679

29-Mar-05 20:12

Thanks

My start up object is Sub main.

I have tried all the tips given above.

I would like to tell you some information....

My application starts executing from Sub Main(). Iam checking a condition in Sub Main procedure and based on that i displaying a form. So when i tried to do that form is displayed for few seconds and the application is terminated.

and i assure that there are no errors like logical or syntax error in coding

I hope that there must some other steps to display a form in Sub Main

Pls help me to find a solution......

Thanks

Re: Display a form in Sub Main()

rwestgraham29-Mar-05 20:27

rwestgraham

29-Mar-05 20:27

OK,

In VB6 you could do this and then if you displayed a form the application would continue to run.

In VB.NET even if you show a form in Sub Main, when Sub Main ends, the form will be destroyed and the application will terminate. There is a simple fix for this. The critical line of code you need is in bold:

------------------------------------------------------

Sub Main()

...your initialization code goes here ...

If ...your conditions are met... Then
MyForm.Show
Application.Run()
End If

End Sub

--------------------------------------------------------

Robert

Re: Display a form in Sub Main()

Sunil Gidwani29-Mar-05 19:58

Sunil Gidwani

29-Mar-05 19:58

If you want to open that form when your application starts then why dont you make it as startup object.

Re: Display a form in Sub Main()

sumit2129-Mar-05 20:30

sumit21

29-Mar-05 20:30

hey, it means there is some condition which is forcing ur program to end.

i also had faced such problem previously
then i put message box whereever i was doubtful in my code

u can also put msgbox in formload of form1.
this will tell u is form1 is loading or not
then u can put the msgbox in other functions of form1
this may tell u the code which is creating problem

my suggestion is to use msgbox and try to debug ur code

Re: Display a form in Sub Main()

Mitch F.29-Mar-05 20:43

Mitch F.

29-Mar-05 20:43

Hello,
You could try to put your conditional statements inside of the Form Load event. If the conditions are not met, you could then use Me.Close() to exit.

For an example,

If <conditions> then
'Do your stuff here if it is met
Else
Me.Close() 'Exit the application since the conditions are not met.
End If

I hope this helps,

Programmer2k4

My sig:

"And it is a professional faux pas to pay someone else to destroy your computer when you are perfectly capable of destroying it yourself." - Roger Wright

I now use my CodeProject Blog!
Most recent blog post: March 24

Re: Display a form in Sub Main()

Benjamin Liedblad29-Mar-05 21:48

Benjamin Liedblad

29-Mar-05 21:48

I had this one about 2 years ago...
I had put some code inside my "form1" and found that the code ran, but the form seemed to never appear.
If you put a DoEvents after the show, then a Msgbox, you'll see what's happening... Your form is actually loading, but the program is exiting after the form.show method.

If you want to load the form and not exit "Main" until you close the form try using the ShowDialog method of the form instead of the Show method. I think that's what you are looking for.

Re: Display a form in Sub Main()

Mahesh167929-Mar-05 22:36

Mahesh1679

29-Mar-05 22:36

Thanks Alot!

It finally worked as Benjamin Liedblad said.

I would like to thank all of you who spared your precious time for me.

Thanks

Thanks !

Mahesh167929-Mar-05 22:36

Mahesh1679

29-Mar-05 22:36

Thanks Alot!

It finally worked as Benjamin Liedblad said.

I would like to thank all of you who spared your precious time for me.

Thanks

How to convert a string to form object?

Sheel Gohe29-Mar-05 18:26

Sheel Gohe

29-Mar-05 18:26

:(I am in a big trouble, I have to access form name as string from database and convert it into form object. I have tried Ctype and DirectCast but both method failed, it gives error "Specified cast not valid". Please help me!!

Sheel

Re: How to convert a string to form object?

Ritesh123430-Mar-05 3:19

Ritesh1234

30-Mar-05 3:19

Hi,
Try this...

Dim frm As Form = DirectCast(Activator.CreateInstance(Type.GetType("ProjectName.frmTest")), Form)

frm.Show()

I hope this will help u.................:->

Regards,
Ritesh

Re: How to convert a string to form object?

Sheel Gohe30-Mar-05 20:10

Sheel Gohe

30-Mar-05 20:10

Thanks Ritesh, this code is too important for me...

Regards
Sheel

sheel

How to get the command line argument of the other processes in VB using Win32 API?

Kent Liu29-Mar-05 17:39

Kent Liu

29-Mar-05 17:39

I've tried ToolHelp functions, Process & Thread functions, WMI, but still can't know how to get the command line argument information of existing processes (not the current process).
It seems that win32_process in WMI could do helps, but the commandline property only works under WinXP/Windows 2003, for Windows 2000, this property does not exists.
Can any one tell me some idea ?
If you could add the example code here, that would be nice !
Thanks.

Do or do not, there is no try.

serialization problem

29-Mar-05 16:17

ok here is the problem I am making a game and the variables work as follows they have a var class which includes the data and a wrapper class which has built in save and load functions which is binary serialization and the var class is accessed through properties now the problem happens when I try to load the var in this case a map it says the object type cannot be converted to the target type
here is some code

Imports System<br />
Imports System.Drawing<br />
imports System.IO<br />
Imports System.Runtime.Serialization<br />
Imports System.Runtime.Serialization.Formatters.Binary<br />
imports System.Windows.Forms<br />
<Serializable()>Public Class Game_map<br />
	Implements icloneable<br />
	<br />
	 	Function Clone() As Object Implements Icloneable.clone<br />
		return me.memberwiseclone<br />
		End Function<br />
		Private var As game_map_var = New Game_map_var<br />
	default Property Root(byval shallow_copy as boolean) As Game_map_var<br />
		Get<br />
			if shallow_copy = false then Return var.clone else return var<br />
		End Get<br />
		Set(ByVal new_object As Game_map_var)<br />
			if shallow_copy = false then me.var = new_object.clone else me.var = new_object<br />
		End Set<br />
	End Property<br />
	Sub save(ByVal filename As String)<br />
		'on error resume next<br />
		dim fs As filestream = New FileStream(filename,filemode.Create)<br />
		dim bf As New BinaryFormatter<br />
		bf.Serialize(fs,var)<br />
		fs.Close<br />
	End Sub<br />
	Sub load(ByVal filename As String)<br />
	'	on error resume next<br />
		if file.Exists(filename) = true then<br />
		dim fs As filestream = New FileStream(filename,filemode.Open)<br />
		dim bf As New BinaryFormatter<br />
		var = ctype(bf.Deserialize(fs),game_map_var)<br />
		fs.Close<br />
	Else<br />
		MessageBox.Show("The file "& filename & " could not be found", "File Not Found!", MessageBoxButtons.OK, MessageBoxIcon.Hand, MessageBoxDefaultButton.Button1)<br />
		End If<br />
	End Sub<br />
	Property name() As string<br />
		Get <br />
			return me.var.name<br />
		End Get<br />
		Set(ByVal new_name As string)<br />
			me.var.name = new_name<br />
		End Set<br />
	End Property<br />
	Property tiles() As game_map_var.game_tile()<br />
		Get <br />
			return me.var.tiles<br />
		End Get<br />
		Set(ByVal new_tiles As game_map_var.game_tile())<br />
			me.var.tiles = new_tiles<br />
		End Set<br />
	End Property<br />
	<Serializable()>Public Class Game_map_var<br />
		Implements icloneable<br />
	 	Function Clone() As Object Implements Icloneable.clone<br />
		return me.memberwiseclone<br />
		End Function<br />
		public name as string = ""<br />
		Public tiles() As game_tile = { _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile, _<br />
new game_tile}<br />
		<br />
		<Serializable()>Public Class Game_tile<br />
			Implements icloneable<br />
	 	Function Clone() As Object Implements Icloneable.clone<br />
		return me.memberwiseclone<br />
		End Function<br />
		Private var As Game_tile_var = New Game_tile_var<br />
			default Property Root(byval shallow_copy as boolean) As game_tile_var<br />
		Get<br />
			if shallow_copy = false then Return var.clone else return var<br />
		End Get<br />
		Set(ByVal new_object As game_tile_var)<br />
			if shallow_copy = false then me.var = new_object.clone else me.var = new_object<br />
		End Set<br />
	End Property<br />
	Property x() As Integer<br />
		Get <br />
			return me.var.x<br />
		End Get<br />
		Set(ByVal new_x As Integer)<br />
			me.var.x = new_x<br />
		End Set<br />
	End Property<br />
	Property y() As Integer<br />
		Get <br />
			return me.var.y<br />
		End Get<br />
		Set(ByVal new_y As Integer)<br />
			me.var.y = new_y<br />
		End Set<br />
	End Property<br />
	Property surface() As bitmap<br />
		Get <br />
			return me.var.surface<br />
		End Get<br />
		Set(ByVal new_y As bitmap)<br />
			me.var.surface = new_y<br />
		End Set<br />
	End Property<br />
	Property state() As tile_state<br />
		Get <br />
			return me.var.state<br />
		End Get<br />
		Set(ByVal new_y As tile_state)<br />
			me.var.state = new_y<br />
		End Set<br />
	End Property<br />
		<Serializable()>Public Class game_tile_var<br />
				Implements icloneable<br />
	 	Function Clone() As Object Implements Icloneable.clone<br />
		return me.memberwiseclone<br />
		End Function<br />
				public x As Integer = 0<br />
				public y As Integer = 0<br />
				Public surface As bitmap = New Bitmap(32,32,system.Drawing.Imaging.PixelFormat.Format24bppRgb)<br />
				public state as tile_state = tile_state.normal<br />
			End Class<br />
<Serializable()> public Enum tile_state<br />
	 	normal<br />
	 	solid<br />
	 	up_down_solid<br />
	 	left_right_solid<br />
	 	left_solid<br />
	 	right_solid<br />
	 	up_solid<br />
	 	down_solid<br />
	 	down_right_solid<br />
	 	down_left_solid<br />
	 	up_left_solid<br />
	 	up_right_solid<br />
	 End Enum<br />
		End Class<br />
	End Class<br />
	<br />
End Class<br />

I know all the class = new class stuff is wierd but I have to do that if i dont the debug says that the "object reference is not set to an object" when I try to access the variable this I believe is because a class is a reference type not a variable at least until you use new which this maybe the source of my problem but structures cannot have starting values which then will return "object reference is not set to an object" when I try to access the varaibles
HELP Confused | :confused:

Datagrid

rusudhan29-Mar-05 16:12

rusudhan

29-Mar-05 16:12

How to display a recordset got from oracle db into a datagrid?

Re: Datagrid

Christian Graus29-Mar-05 16:34

Christian Graus

29-Mar-05 16:34

just the same as one from SQL Server or Access.

Christian

I have several lifelong friends that are New Yorkers but I have always gravitated toward the weirdo's. - Richard Stringer

Code Downgrade

Member 175892829-Mar-05 14:20

Member 1758928

29-Mar-05 14:20

Hi there

Being too cheap to go out and buy it before learning VB.NET, I downloaded the 2005 Beta1 of Visual Studio. I wrote some programs, and now I've bought 2003 Standard. I've tried to downgrade the code so much as my GUI (controls, etc.) are all back, my code is (mostly fine) and there's no build errors. However...there's been a few issues that I need some help with.

Private Sub form1_closing(ByVal sender As System.Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing

It seems that the older framework doesn't support this, but does anybody know of an alternative that will work?

***

Dim connectme As New Net.Sockets.TcpClient()<br />
      Dim server As String = "1.1.1.1"<br />
      If connectme.Connected = True Then //<br />

Property connected as Boolean doesn't exist in this older framework? Anyone else know how to check?

***

For this one, I'm using NotifyIconEX, and with the EXACT same code, the EXACT same controls, references, etc. When I try to set notifyicon1.visible = True, I get "Object Reference not Set to an Instance of an Object".

***

For some reason, whenever I startup this program, Main.vb (the primary form), is ALWAYS blank, even though I have everything set up in the designer. This NEVER happened in VS.NET 2005. I have yet to figure out how to get around this.

***

All of these worked PERFECTLY prior to the code conversion. If anybody could give me ANY advice, it would be GREATLY appreciated.

Head Admin,

http://www.khaoslabs.com/

Re: Code Downgrade

Mitch F.29-Mar-05 20:24

Mitch F.

29-Mar-05 20:24

Hello,

Kevin Delaney wrote:
Private Sub form1_closing(ByVal sender As System.Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing

In Visual Basic .Net 2003, you can handle the Closing event with:

Private Sub Form1_Closing(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles MyBase.Closing

End Sub

Kevin Delaney wrote:
For some reason, whenever I startup this program, Main.vb (the primary form), is ALWAYS blank, even though I have everything set up in the designer. This NEVER happened in VS.NET 2005. I have yet to figure out how to get around this.

I am not sure of the problem here... You should check to see if the startup object is the Main.vb (right click your project inside of the solution explorer, and then select properties. You should see "Startup Object:" with a combobox that has your startup object.). Another thing that could be wrong is that the "Visible" property on each control is set to false.

I hope this helps,

Programmer2k4

My sig:

"And it is a professional faux pas to pay someone else to destroy your computer when you are perfectly capable of destroying it yourself." - Roger Wright

I now use my CodeProject Blog!
Most recent blog post: March 24

Re: Code Downgrade

Member 175892830-Mar-05 0:52

Member 1758928

30-Mar-05 0:52

Hi there

Thank you very much for your code sample, I shall try it this evening.

With regards to the second thing, I have tried BOTH of what you said. I don't even get a title for main.vb...just an empty window with an icon...I've narrowed it down to a certain form but it still makes no sense...

Thanks again,

Head Admin,

http://www.khaoslabs.com/

multiple objects in datagrid

nordyck29-Mar-05 13:21

nordyck

29-Mar-05 13:21

VB 6.0

I'm trying to create datagrid type control (5 rows 10 cols) that is connected to an access database table. The data is being pulled from several different tables to feed the main table. A combo box is used to query the data from the different tables.

i.e.
Col 1: plain text, user entry
Col 2: combo box tied to table (user list)
col 3: combo box tied to table (state)
col 4: checkbox weither is active or not
col 5: another combo box from another table
etc.

Data grid may not be the right thing to do. So far I haven't found any reference to this except in vb.net (can't get pass the database connections It's ok if I'm using 1 table with 6 fields). I can creat this form in MS Access but how do I recreat it in VB6.0?

Advice to learn assembly programming language

Mekong River29-Mar-05 11:29

Mekong River

29-Mar-05 11:29

Hi could anyone give me a suggestion or provide any advice on how to learn assebly programming language from the beginning in effective way???

A thousand mile of journey, begin with the first step.

APO-CEDC
Save Children Norway-Cambodia Office

Re: Advice to learn assembly programming language

Colin Angus Mackay29-Mar-05 12:03

Colin Angus Mackay

29-Mar-05 12:03

I think you would get a better response in the Visual C++ Forum because it at least allows you to embed assembly code inside functions.

My: Blog | Photos | Next SQL Presentation
WDevs.com - Open Source Code Hosting, Blogs, FTP, Mail and More

Re: Advice to learn assembly programming language

Christian Graus29-Mar-05 12:09

Christian Graus

29-Mar-05 12:09

If you're jumping from VB to assembler, I suggest you may well need an intermediate step. You've got my vote for confidence tho.

Microsoft used to publish an excellent book on the subject, I don't know if it's still around, but it's worth having a look on Amazon and also ebay. Sorry, I forget the title, but if you google Microsoft Press assembler, I'm sure you'll find it.

Christian

I have several lifelong friends that are New Yorkers but I have always gravitated toward the weirdo's. - Richard Stringer

Use Ctrl+Left/Right to switch messages, Ctrl+Up/Down to switch threads, Ctrl+Shift+Left/Right to switch pages.