Click here to Skip to main content
15,914,016 members
Home / Discussions / Visual Basic
   

Visual Basic

 
QuestionAnchoring Problem Pin
daveryan7820-Sep-06 23:06
daveryan7820-Sep-06 23:06 
AnswerRe: Anchoring Problem Pin
Dave Kreskowiak21-Sep-06 5:40
mveDave Kreskowiak21-Sep-06 5:40 
Questionstored procedure Pin
locaas20-Sep-06 22:47
locaas20-Sep-06 22:47 
AnswerRe: stored procedure Pin
Christian Graus20-Sep-06 23:20
protectorChristian Graus20-Sep-06 23:20 
QuestionTimed responce? Pin
Dave McCool20-Sep-06 22:15
Dave McCool20-Sep-06 22:15 
AnswerRe: Timed responce? Pin
Christian Graus20-Sep-06 23:23
protectorChristian Graus20-Sep-06 23:23 
GeneralRe: Timed responce? Pin
Dave McCool21-Sep-06 10:25
Dave McCool21-Sep-06 10:25 
Questionloadingbar FLASH in a winform stops run during binding Pin
andreapv20-Sep-06 22:13
andreapv20-Sep-06 22:13 
This a full integrated VB.NET 2003 frameworm 1.1 winform (with swf DLLS, swf files, and db connection) sample of using SWF TITLEBAR and LOADING BAR.

IN THIS PAGE YUO'LL FIND THE COMPLETE VB.NET PROJECT
http://www.scacco-mattoband.com/dwn.html

Try and use it if you need

THERE IS ONLY A TROUBLE I'M NOT ABLE TO SOLVE:

If you try this sample you can see i made a select with FOR CICLE to make a longer data elaboration.
During the select subRoutine the titleBar stops run
and the loading bar becomes visible only after the binding of the datagrid.

I'd like to know how can i correctly thread this code:
the right thing is that SWFloadingbar become visible (and run!!!!!) before the star of select subRoutine() and the SWFtitlebar does not stop.


WHEN This truble will be solved i'd like put this sample in the article session

IN THIS PAGE YUO'LL FIND THE COMPLETE ZIP VB.NET PROJECT TO DOWNLOAD
http://www.scacco-mattoband.com/dwn.html




THIS IS THE CODE OF THE WINFORM

Private Sub Form3_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Load
'SWF TITLEBAR
Dim path As String
path = System.Environment.CurrentDirectory
path = path + "\titoloprovawinform.swf"
AxShockwaveFlash2.LoadMovie(0, path)
End Sub





Private Sub ButtonLoad_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonLoad.Click
Dim path As String
path = System.Environment.CurrentDirectory
path = path + "\load.swf"
axShockwaveFlash1.LoadMovie(0, path)
selectAndBind()
End Sub


Private Sub selectAndBind()
Dim conStr As String = "Provider=SQLOLEDB;Data Source=localhost;Database=Northwind;Integrated Security=SSPI;"
Dim sqlStr As String = "SELECT * FROM orders"
' Create connection object
Dim conn As OleDbConnection = New OleDbConnection(conStr)
' Create data adapter object
Dim da As OleDbDataAdapter = New OleDbDataAdapter(sqlStr, conn)
' Create a dataset object and fill with data using data adapter's Fill method
Dim ds As DataSet = New DataSet
da.Fill(ds, "Employees")
' Attach dataset's DefaultView to the datagrid control
conn.Close()

Dim conStr2 As String = "Provider=SQLOLEDB;Data Source=localhost;Database=Northwind;Integrated Security=SSPI;"
Dim sqlStr2 As String = "SELECT * FROM orders"
' Create connection object
Dim conn2 As OleDbConnection = New OleDbConnection(conStr)
' Create data adapter object
Dim da2 As OleDbDataAdapter = New OleDbDataAdapter(sqlStr, conn)
' Create a dataset object and fill with data using data adapter's Fill method
Dim ds2 As DataSet = New DataSet
da2.Fill(ds2, "Employees")
' Attach dataset's DefaultView to the datagrid control
DataGrid2.DataSource = ds2.DefaultViewManager
conn.Close()

Dim conStr3 As String = "Provider=SQLOLEDB;Data Source=localhost;Database=Northwind;Integrated Security=SSPI;"
Dim sqlStr3 As String = "SELECT * FROM orders"
' Create connection object
Dim conn3 As OleDbConnection = New OleDbConnection(conStr)
' Create data adapter object
Dim da3 As OleDbDataAdapter = New OleDbDataAdapter(sqlStr, conn)
' Create a dataset object and fill with data using data adapter's Fill method
Dim ds3 As DataSet = New DataSet
da3.Fill(ds3, "Employees")
' Attach dataset's DefaultView to the datagrid control
conn.Close()

Dim iii As Integer
Dim aaa As Integer


For aaa = 0 To 60
For iii = 0 To ds2.Tables(0).Rows.Count - 1
ds.Tables(0).ImportRow(ds2.Tables(0).Rows(iii))
Next
For iii = 0 To ds3.Tables(0).Rows.Count - 1
ds.Tables(0).ImportRow(ds3.Tables(0).Rows(iii))
Next

Next
DataGrid1.DataSource = ds.DefaultViewManager
End Sub




ROBERTO BAGGIO RULES

PS
FORGIVE MY BAD ENGLISH
QuestionNeed information abt this control in .net Pin
Dinudj4u20-Sep-06 22:12
Dinudj4u20-Sep-06 22:12 
AnswerRe: Need information abt this control in .net Pin
Christian Graus20-Sep-06 23:24
protectorChristian Graus20-Sep-06 23:24 
GeneralRe: Need information abt this control in .net Pin
Dinudj4u20-Sep-06 23:43
Dinudj4u20-Sep-06 23:43 
GeneralRe: Need information abt this control in .net Pin
Christian Graus21-Sep-06 0:06
protectorChristian Graus21-Sep-06 0:06 
GeneralRe: Need information abt this control in .net Pin
Dinudj4u21-Sep-06 0:58
Dinudj4u21-Sep-06 0:58 
GeneralRe: Need information abt this control in .net Pin
Christian Graus21-Sep-06 1:04
protectorChristian Graus21-Sep-06 1:04 
GeneralRe: Need information abt this control in .net Pin
Dinudj4u21-Sep-06 1:11
Dinudj4u21-Sep-06 1:11 
GeneralRe: Need information abt this control in .net Pin
Christian Graus21-Sep-06 1:21
protectorChristian Graus21-Sep-06 1:21 
GeneralRe: Need information abt this control in .net Pin
Dinudj4u21-Sep-06 1:33
Dinudj4u21-Sep-06 1:33 
GeneralRe: Need information abt this control in .net Pin
Christian Graus21-Sep-06 1:42
protectorChristian Graus21-Sep-06 1:42 
GeneralRe: Need information abt this control in .net Pin
Dinudj4u21-Sep-06 2:31
Dinudj4u21-Sep-06 2:31 
AnswerRe: how to link to mySQL using coding?? URGENT~~~ Pin
Dixon Baptista21-Sep-06 2:51
Dixon Baptista21-Sep-06 2:51 
Questionopen a word document in a rich text box which contain tables Pin
Batchu Rajesh20-Sep-06 21:50
Batchu Rajesh20-Sep-06 21:50 
AnswerRe: open a word document in a rich text box which contain tables Pin
Christian Graus20-Sep-06 22:09
protectorChristian Graus20-Sep-06 22:09 
Question? to use CONDITION in setup&deploying in vb.net Pin
manikandavadivel20-Sep-06 21:34
manikandavadivel20-Sep-06 21:34 
Questiondatabase connectivity Pin
minniemooo20-Sep-06 21:27
minniemooo20-Sep-06 21:27 
AnswerRe: database connectivity Pin
prakash J20-Sep-06 22:02
prakash J20-Sep-06 22:02 

General General    News News    Suggestion Suggestion    Question Question    Bug Bug    Answer Answer    Joke Joke    Praise Praise    Rant Rant    Admin Admin   

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