|
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
|
|
|
|
|
Hi all,
In the treeview , when clicking at the A: drive tells
There is no disk in Drive Please insert the disk to continue.Can u help me to find whether the disk is already inserted or not.
Bye
|
|
|
|
|
There is no way to tell unless you try to access the root directory of the drive.
Dave Kreskowiak
Microsoft MVP - Visual Basic
|
|
|
|
|
constantinejones wrote: In the treeview , when clicking at the A: drive tells
There is no disk in Drive Please insert the disk to continue.Can u help me to find whether the disk is already inserted or not.
I used to see this demonstration from AppDev training CD about VB.Net on the section of working with error handling. They test with the diskette in the drive. I think you should learning to use error handling[^] in vb.net then you would be able to learn what you need.
|
|
|
|
|
Hi All,
I would like to create an activex control which should change the browser settings , like enabling the javascript etc.
Regards
Srinivasa Rao. S
|
|
|
|
|
|
Hi, I have a question relate to open file dialog and list box in vb.net. Currently I have:
One text box
One browse button
and one list box
My purpuse is:
1. Click on browse button and multiple select the file that I need.
2. When user click open, return the file path to text and display all file name that i multiple select in list box.
I could do the step 1 but I could not do the step 2. Here is my code that didn't work as my expectation:
Private Sub btnBrowse_Click(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles btnBrowse.Click
Try
With ofdOpenData
' Start to open file in My document folder by default.
.InitialDirectory = System.Environment.GetFolderPath( _
Environment.SpecialFolder.Personal)
.Filter = "All Files (*.*)|*.*|Microsoft Access Database " & _
"(*.mdb)|*.mdb"
.DefaultExt = "mdb"
.ShowDialog()
Dim dlgResult As DialogResult
If dlgResult <> DialogResult.Cancel Then
' Clear the list box to get the new itmes.
lstFilesList.Items.Clear()
txtBrowse.Text = .FileName
lstFilesList.Items.AddRange(.FileNames)
End If
End With
Catch ex As Exception
MsgBox(Err.Description.ToString, , "Error")
End Try
End Sub
What i get is all file name with its folder path display in the list box and the text box display the last select file name and its path.
Can anyone help me?
|
|
|
|
|
Hi,
I am automating MS Word using VB .Net . What I want is that I want some text to be inserted on the word document that I have opened. Once I have done this when my mouse moves above this line of text, the cursor should change to hand cursor and the text should behave like a hyperlink i.e. when that text is clicked, it should take the user to some other location.
How can I achieve this.
Thanks in advance,
Aryan.
|
|
|
|
|
aakar wrote: I am automating MS Word using VB .Net . What I want is that I want some text to be inserted on the word document that I have opened. Once I have done this when my mouse moves above this line of text, the cursor should change to hand cursor and the text should behave like a hyperlink i.e. when that text is clicked, it should take the user to some other location.
Try to check this resource[^] and look at the final section that import data from ms access to word. This might give you some idea to insert your own data.
|
|
|
|
|
how to create the MDB programmatically?
|
|
|
|
|
|
Thanks. exactly what i was seraching for.
|
|
|
|
|
changeez wrote: Thanks.
You are welcome, I'm very happy to support you  ![Rose | [Rose]](https://www.codeproject.com/script/Forums/Images/rose.gif)
|
|
|
|
|
HI
Can anyone tell me, From where can I get the VB.NET AND ASP.NET E-BOOKS OR TUTORIALS free in PDF format using Visual Studio.NET 2003...?
Thank You
|
|
|
|
|
|
|
General 
News 
Suggestion 
Question 
Bug 
Answer 
Joke 
Praise 
Rant 
Admin 
Submit an article or tip
