Si behen deklarime te objekteve

[Vb.Net]

Shume here kam nevoj ti bej deklarime te objekteve porato nuk po reagojne ne kryerjen e urdherave

Pershembull kur deklaroj

Public NrFatures as new ComboBox
Dim Dataseti as new Dataset

Combobox.datasource=Dataseti.tables(0)
Combobox.Displaymember"NrFatures"
me.textbox1.text=combobox.text

me e deklaru si Dim NFatures as new combobo po ma qet error
me deklaru si public nuk qet error por nuk reagon ke urdhera
textboxi rin i zbrazet kurse comboboxin kur e insertoj prej veglave
funksionon kurse me urdher a nuk funksionon

kam provuar me e deklaru variablen tek on open form
edhe ashtu nuk ka dasht kam provu edhe tet public class
qe shkruan ne fillim te kodit nuk e di a po deklroj gabim kodin apo gabim vendin

[hot_prinz]

Nuk e di se si eshte permbajtja e DataSeti-t tend, por e shof se:

Combobox.Displaymember"NrFatures" 

"NrFeatures" do te duhej te ishte nje kolone ne tabelen tende dhe percaktohet ne kete menyre:

comboBox.DisplayMember = "NrFeatures" 

Ja nje shembull per Combobox dhe Textbox kur objektet deklarohen "on the run", kur programi ekzekutohet, krijo nje windows forms projekt dhe zevendesoje kodin e formes se krijuar me kete kod:

Public Class Form1

    'deklarimet e objekteve
    Public comboBox As New ComboBox
    Public textBox As New TextBox
    Dim Dataseti As New DataSet

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        'fusim nje tabele ne dataset
        Dataseti.Tables.Add("ArtisteHolivudi")

        'fusim nje kolone ne tabele
        Dataseti.Tables("ArtisteHolivudi").Columns.Add("Emri")

        'fusim rreshta ne tabele
        Dataseti.Tables("ArtisteHolivudi").Rows.Add("Bajrami")
        Dataseti.Tables("ArtisteHolivudi").Rows.Add("Idrizi")
        Dataseti.Tables("ArtisteHolivudi").Rows.Add("Mustafa")
        Dataseti.Tables("ArtisteHolivudi").Rows.Add("Ibishi")
        Dataseti.Tables("ArtisteHolivudi").Rows.Add("Shabani")
        Dataseti.Tables("ArtisteHolivudi").Rows.Add("Zyrafeti")
        Dataseti.Tables("ArtisteHolivudi").Rows.Add("Xhemilja")
        Dataseti.Tables("ArtisteHolivudi").Rows.Add("Fikreti")

        'lidhim datasource te comboboxit me tabelen e krijuar
        comboBox.DataSource = Dataseti.Tables(0)

        'lidhim kolonen e tabeles me display member
        comboBox.DisplayMember = "Emri"

        'caktojme vetite e lokacionit dhe paraqitjes
        comboBox.Location = New Point(20, 20)
        comboBox.DropDownStyle = ComboBoxStyle.DropDownList

        'caktojme lokacionin e textboxit
        textBox.Location = New Point(20, 80)

        'fusim ne forme
        Me.Controls.Add(comboBox)
        Me.Controls.Add(textBox)

        'fusim nje handler te nje metode qe kur selektohet comboboxi 
        'te shfaqet teksti i selektuar nga combobox ne textbox
        AddHandler comboBox.SelectedIndexChanged, AddressOf comboBox_SelectedIndexChanged

    End Sub

    Private Sub comboBox_SelectedIndexChanged(ByVal sender As Object, ByVal e As EventArgs)

        textBox.Text = comboBox.Text

    End Sub

End Class 

[furkan]

I shiqova disa shembuj ne google dhe youtube, or zakonisht mi qet disa shembuj me do start buton dhe stop button,
a ka mundesi qe te me udhezoj dikush si behet konektimi apo qasja ne bazen e te dhenave permes backgrounworkerit duke eperfshi edhe nji progres bar ose edhe pa progres bar kryeso re qe te behet puna permes back gound workerit, sepse kur e mbushi aplikacionin me kode, po e verej shpesh here me duhet ne intervenoj permes task menaxherit per ta ndaluar procesin, dhe me udhezoj nji shok i imi qe te punoj permes background worker por ai punon me c# e une nuk mai vesh me c# kam nevoj nji ndihme permes VB.net .

[Uke Topalli]

Ja shablloni te cilin e perdorir per fillimin e aplikacioneve ne WPF:

Imports System.Runtime.Remoting.Messaging
Imports System
Imports System.ComponentModel
Imports System.Windows
Imports System.Data
Imports System.IO
Imports System.Threading

Partial Public Class mwGlobalSplash

#Region " Private Members "
	Private WithEvents backgroundWorker As New BackgroundWorker()
#End Region

#Region " Constructor "
	Public Sub New()
		InitializeComponent()

		backgroundWorker.WorkerSupportsCancellation = True
		backgroundWorker.WorkerReportsProgress = True

		' Calls DoWork on secondary thread
		backgroundWorker.RunWorkerAsync()
	End Sub
#End Region

#Region " Asynchronous BackgroundWorker Events "
	' Runs on secondary thread.
	Private Sub backgroundWorker_DoWork(ByVal sender As Object, ByVal e As DoWorkEventArgs) Handles backgroundWorker.DoWork
		' call long running process and get result
		e.Result = Me.backgroundWorker_LoadStartUpItems()

		' Cancel if cancel button was clicked.
		If backgroundWorker.CancellationPending Then
			e.Cancel = True
			Return
		End If
	End Sub

	' Method is called everytime backgroundWorker.ReportProgress is called which triggers ProgressChanged event.
	Private Sub backgroundWorker_ProgressChanged(ByVal sender As Object, ByVal e As System.ComponentModel.ProgressChangedEventArgs) Handles backgroundWorker.ProgressChanged
		' Update UI with % completed.
		Me.SplashPercent_TextBlock.Text = CStr(e.ProgressPercentage) & "%"
		Me.SplashProgress_ProgressBar.Value = e.ProgressPercentage
		Me.SplashLoadedItem_TextBlock.Text = e.UserState
	End Sub

	' Called when DoWork has completed.
	Private Sub backgroundWorker_RunWorkerCompleted(ByVal sender As Object, ByVal e As RunWorkerCompletedEventArgs) Handles backgroundWorker.RunWorkerCompleted
		' Back on primary thread, can access ui controls
		If e.Cancelled Then
			Me.Close()
		Else
			Me.SplashLoadedItem_TextBlock.Text = "Start up completed."
			My.Application.CreateMainWindow()
			Me.Close()
		End If
	End Sub


	' Handles click event for cancel button.
	Private Sub CancelAsynchronous_Button_Click(ByVal sender As System.Object, ByVal e As System.Windows.RoutedEventArgs)
		' Cancel the asynchronous operation.
		Me.backgroundWorker.CancelAsync()
	End Sub

	'KETU E BAN LEXIMIN E SHENIMEVE
	Private Function backgroundWorker_LoadStartUpItems() As Boolean
		' report progress of loop
		If (backgroundWorker IsNot Nothing) AndAlso backgroundWorker.WorkerReportsProgress Then
			'SHKRUAJE KODIN TAND KETU ... PREJ KETU MUND TA MANIPULOSH PROGRES BAR


		End If

		Return True
	End Function

#End Region

End Class

[furkan]

Valla ty faleminderit shume po te une kjo nuk funksionon pomi qet nja dy kolica erora, edhe pse i kam insertu dy texboxa dy buttona i kam eremtuar si ne shebullin qe e ke bo ti po po maqet nji error diqka me form1 sjam ka e mari vesh.


mu po me duhet veq ta bej konektimin me Bakgrounwrker qe nese ka shum te dhena ne baze te mos bllokohet aplikacioni po te punoj background workeri se ka raste kur me duhet me intervenu me task manager per shkak deri sa ta lexon bazen e te dhenave .

Per C# kam gjet disa kode po si mar vesh fort jo fort po hiq besa.

e per vb.net per background kam gjet vetem per do start butona dhe stop butona e se di hiq qka po me duhen ato.
nejse ju merzita edhe juve mo.

une km nevoj qe qasjen ne bazen e te dhenave ta bej me backgroun worker dhe ta di se per sa eshte gati duke u konektuar me progres barrse me kohen e dores qe po e mati dikun 2 minuta po presi veq baza ime i ka 120.000 rekorde.

[furkan]

Imports System.ComponentModel
Imports System.Data.OleDb


Public Class Form1
Dim con As New OleDb.OleDbConnection
Dim dbProvider As String
Dim dbSource As String


Public Sub New()
InitializeComponent()
BackgroundWorker1.WorkerReportsProgress = True
BackgroundWorker1.WorkerSupportsCancellation = True
End Sub

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
dbProvider = "PROVIDER=Microsoft.Jet.OLEDB.4.0;"
dbSource = "Data Source = C:/Prova.mdb"

con.ConnectionString = dbProvider & dbSource
End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If BackgroundWorker1.IsBusy <> True Then
' Start the asynchronous operation.
BackgroundWorker1.RunWorkerAsync()
Dim ds As New DataSet
Dim da As New OleDbDataAdapter
Dim Sql As String
con.Open()
Sql = "Select Pershkrimi From Artikujt"
da = New OleDbDataAdapter(Sql, con)
da.Fill(ds, "Artikujt")
con.Close()
' ds.Clear()
DataGridView1.DataSource = ds.Tables(0)
'ds.Clear()
' BackgroundWorker1.RunWorkerAsync()


End If
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
If BackgroundWorker1.WorkerSupportsCancellation = True Then
' Cancel the asynchronous operation.
BackgroundWorker1.CancelAsync()
End If
End Sub

Private Sub BackgroundWorker1_DoWork(ByVal sender As System.Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles BackgroundWorker1.DoWork
Dim worker As BackgroundWorker = CType(sender, BackgroundWorker)
Dim i As Integer

For i = 0 To 100
If (worker.CancellationPending = True) Then
e.Cancel = True
Exit For
Else
' Perform a time consuming operation and report progress.
System.Threading.Thread.Sleep(10)
worker.ReportProgress(i * 1)
End If
Next
End Sub

Private Sub BackgroundWorker1_ProgressChanged(ByVal sender As System.Object, ByVal e As System.ComponentModel.ProgressChangedEventArgs) Handles BackgroundWorker1.ProgressChanged
ResultLabel.Text = (e.ProgressPercentage.ToString() + "%")
End Sub

Private Sub BackgroundWorker1_RunWorkerCompleted(ByVal sender As System.Object, ByVal e As System.ComponentModel.RunWorkerCompletedEventArgs) Handles BackgroundWorker1.RunWorkerCompleted
If e.Cancelled = True Then
ResultLabel.Text = "Canceled!"
ElseIf e.Error IsNot Nothing Then
ResultLabel.Text = "Error: " & e.Error.Message
Else
ResultLabel.Text = "Done!"
End If
End Sub
End Class

e vetmja gje qe funksionon me mire eshte qe aplikacioni nuk po bllokohet, por prap nuk e di edhe sa duhet me prit sepse Labela eprocesit nuk me tregon perqindjen sa eshte kompletuar a ka dikush edhe naj ndihme.

[Uke Topalli]

Valla ty faleminderit shume po te une kjo nuk funksionon pomi qet nja dy kolica erora, edhe pse i kam insertu dy texboxa dy buttona i kam eremtuar si ne shebullin qe e ke bo ti po po maqet nji error diqka me form1 sjam ka e mari vesh.

Une e postova kodin qe e perdori shum shpesh pa asnje gabim por nuk e perdori ne winforms po ne wpf dhe .NET 4.