|
In VB6 to view values on the Debug window all you done was debug then the variable.
How do you do this on vb.net?
I have tried Debug.WriteLine("Number is: ") but this does not appear in the option debug\windows\immediate
I must be doing something stupid.
Thanks in advance.
|
|
|
|
|
directred wrote: I have tried Debug.WriteLine("Number is: ") but this does not appear in the option debug\windows\immediate
According to your code, you didn't concatenate any variable. It should be:
Debug.WriteLine("Number is: " & VariableName)
|
|
|
|
|
use
Debug.Print("My String to print on the immediate window")
|
|
|
|
|
This seem to be a function in vb6?
|
|
|
|
|
Ok, thank. Now i understand.
|
|
|
|
|
Output from the Debug class will show up in the Output window.
Dave Kreskowiak
Microsoft MVP - Visual Basic
|
|
|
|
|
I want to receive UDP messages broadcasted by my server,how do I go about it.
I tried to create one socket with protocol as UDP and addes in formload following commends
Winsock1.LocalPort = 3001
Winsock1.Bind 3001
where 3001 is the port on which server is sending the data.
but I am not able to receive anything
Please help
|
|
|
|
|
Hai,
I've a vb.net 2003 windows application which have connected with ms access database. Can we convert it into a vb 6.0 application? If so, how??
Any suggestions?? Thanks in advance....
-Priya
|
|
|
|
|
You would basically need to rewrite it - and I can't think of any reason why you would want to do that...
'--8<------------------------
Ex Datis:
Duncan Jones
Merrion Computing Ltd
|
|
|
|
|
Yep, there is no conversion tool for this. Why on earth you would want to do this is beyond me.
Your basically throwing away your very nice set of hand and power tools and going back to making primitive objects by smashing your raw materials with rocks.
You have to start a new VB6 project and rewrite the entire project by hand!
Dave Kreskowiak
Microsoft MVP - Visual Basic
|
|
|
|
|
As other friends mentioned there is NO WAY to convert it back to vb6 and you MUST rewrite the project.
But (as long as you did not mention the reason WHY you need to convert it BACK to vb6) I can give you the idea (if it fits to what you need) to export your VB.NET project as a COM and use it in vb6. Remember that you still need .NET Framework Runtime to run your project.
|
|
|
|
|
hi all..
i have a question, how a want to make a splash screen?? can someone help me..
areon25
|
|
|
|
|
Add new module to your project ( create spalshform, mainform)
Code from Module
Public frmnew as new Form
Sub Main
frmnew = New splashform
frmnew.ShowDialog()
frmnew = New mainform
frmnew.ShowDialog()
End Sub
anymore
in splashform you must you control called Timer
Timer.Enabled=True
Event for timer
private Sub timer1_tick(...........)
Close
End Sub
In your probject properties use stard up form Sub Main
Regard
Socheat
................
|
|
|
|
|
How can i change title bar when jabascript is alert in vb.net
Thanks
................
|
|
|
|
|
I have no idea what you mean, but the answer is still no. jscript runs on teh client, VB runs on the server.
Christian Graus - Microsoft MVP - C++
Metal Musings - Rex and my new metal blog
|
|
|
|
|
I mention that, example I u use WebBorser Control in VB.NET 2005 and run web site in it you will know when web page content jaavscrip.
Example
in one page have one form
form reqiure username and password
If you not type password javascrip will alert message, you will see the caption of messgebox
................
|
|
|
|
|
The answer is still no. You cannot change the title text of the window. At least not easily and not visually appealing.
Dave Kreskowiak
Microsoft MVP - Visual Basic
|
|
|
|
|
hi everyone..
i have aquestion, how i want to add/minus data in certain field in my database(access). acctually the data is in number. can someone help me..
areon25
|
|
|
|
|
hi hafiz,
just use the recordset object to open the database table and open the required record using proper query in the recordset.
then you can modify the values in records set and update it using the recordset object.
hope this works.
Nitin...
|
|
|
|
|
Hi
Currently i am using Crystal Reports in my project. But now i want to move to SQL Server Reporting Services 2005. I explored it a little like "Report Builder" and creating reports using "Business Intelligence Studio", but my problem is different. May be I am getting worng approach 
I want to use DataSet that are created and placed in My VB.NET project for SQL Reports. As reports created using "Business Intelligence Studio" are placed on Database Server, but my Application Server is different from Database Server.
Now my actual problem is that i want to populate Report residing on Database Server with Dataset that is on my application server, because i populate Dataset on some conditions from user inputs.
Please help me to solve my problem. I m not much experienced with Reporting.
Thanks
Asif Hameed
|
|
|
|
|
hi all
its been a while since i've worked on a VB program and im currently facing difficulties with the following code.I'm trying to create a diagram with nodes which you can manipulate and enter data.So far the program creates the nodes with numbered text by dragging the node and moves them by right click them.I want to be able to go back and delete any node i want plus to be able to access the nodes(enter text,extra form with info that the user will give)
If you can provide pointers or links to example code or literature, it
would be appreciated.
just copy-paste the code on a class module and a form with an image control-index property must be set to 0
' [ Class1 ] ------------------------------------------------
Option Explicit
Public X As Long
Public Y As Long
Public Text As String
Public Handle As Image
Again Thanks
Public Kids As New Collection
Friend Sub RenderLines(Surface As Variant)
Dim Item As Class1
'Connect lines first, then do circles/text
For Each Item In Kids
Surface.Line (X, Y)-(Item.X, Item.Y), vbBlack
Item.RenderLines Surface
Next
End Sub
Friend Sub RenderText(Surface As Variant)
Dim Item As Class1
' draw the circles and text
Surface.Circle (X, Y), 500, vbBlack
Surface.CurrentX = X - Surface.TextWidth(Text) \ 2
Surface.CurrentY = Y - Surface.TextHeight(Text) \ 2
Surface.Print Text;
For Each Item In Kids
Item.RenderText Surface
Next
Handle.Move X - 500, Y - 500, 1000, 1000
End Sub
Public Function Locate(ByVal Index As Long) As Class1
Dim kid As Class1
Dim test As Class1
' reutrns the class whose handle has a certain Index
If Handle.Index = Index Then
Set Locate = Me
Else
For Each kid In Kids
Set test = kid.Locate(Index)
If Not test Is Nothing Then
Set Locate = test
Exit For
End If
Next
End If
End Function
' [ Form1 ] -------------------------------------------------------
Option Explicit
Private Node As Class1
Private Drawing As Boolean
Private StartX As Long, StartY As Long
Private OldX As Long, OldY As Long
Private StartNode As Class1
Private Sub Form_DragDrop(Source As Control, X As Single, Y As Single)
DropIt Source, X, Y
End Sub
Private Sub Form_Load()
Me.FillStyle = vbFSSolid
Me.FillColor = vbWhite
Me.DrawWidth = 2
Set Node = NewItem(ScaleWidth \ 2, ScaleHeight \ 2, "Root", Image1(0))
End Sub
Private Sub Form_Paint()
Node.RenderLines Me
Node.RenderText Me
End Sub
Private Sub Image1_DragDrop(Index As Integer, Source As Control, X As Single, Y As Single)
Dim img As Image
Set img = Node.Locate(Index).Handle
DropIt Source, img.Left + X, img.Top + Y
End Sub
Private Sub Image1_MouseDown(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = vbLeftButton Then
'Select Draw Mode
Drawing = True
DrawMode = vbInvert
DrawStyle = vbDot
'Store start values
Set StartNode = Node.Locate(Index)
StartX = StartNode.X
StartY = StartNode.Y
OldX = X + StartNode.Handle.Left
OldY = Y + StartNode.Handle.Top
Else
OldX = X
OldY = Y
Node.Locate(Index).Handle.Drag vbBeginDrag
End If
End Sub
Private Sub Image1_MouseMove(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim XX As Long, YY As Long
If Drawing Then
' Convert Image click to Form coordinates
XX = X + StartNode.Handle.Left
YY = Y + StartNode.Handle.Top
'Erase old line
Line (StartX, StartY)-(OldX, OldY), vbBlack
'Draw new line
Line (StartX, StartY)-(XX, YY), vbBlack
OldX = XX
OldY = YY
End If
End Sub
Private Sub Image1_MouseUp(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
If Drawing Then
Drawing = False
DrawMode = vbCopyPen
DrawStyle = vbSolid
' Create a new Image control, make it visible
Load Image1(Image1.Count)
Image1(Image1.Count - 1).Visible = True
' Add a new item to the node
Node.Locate(Index).Kids.Add NewItem(X + StartNode.Handle.Left, _
Y + StartNode.Handle.Top, CStr(Image1.Count - 1), _
Image1(Image1.Count - 1))
Refresh
End If
End Sub
Private Function NewItem(ByVal X As Long, ByVal Y As Long, Text As String, Handle As Image) As Class1
Set NewItem = New Class1
With NewItem
.X = X
.Y = Y
.Text = Text
Set .Handle = Handle
End With
End Function
Private Sub DropIt(Source As Image, ByVal X As Long, ByVal Y As Long)
Dim This As Class1
' Drops item
Set This = Node.Locate(Source.Index)
This.X = X - (OldX - 500)
This.Y = Y - (OldY - 500)
Source.Drag vbEndDrag
Refresh
End Sub
|
|
|
|
General 
News 
Suggestion 
Question 
Bug 
Answer 
Joke 
Praise 
Rant 
Admin 
Submit an article or tip
