Private Sub MakeButton(sp As StackPanel, sStr As String)
	 Dim btn As New Button()
	 Dim sp1 As New StackPanel()
	 Dim img As System.Drawing.Bitmap

			img = My.Resources.FldrClose

			sp1.Orientation = Orientation.Horizontal
			sp1.Children.Add(New Image With {.Source = New BitmapImage(New Uri("c:\tmp\FldrOpen.png")),
								  .Width = 40,
								  .HorizontalAlignment = Windows.HorizontalAlignment.Center})

			sp1.Children.Add(New TextBlock With {.Text = sStr,
								  .Width = 100,
								  .HorizontalAlignment = Windows.HorizontalAlignment.Right})

			btn.Height = 30
			btn.Width = 200
			btn.Content = sp1

			sp.Children.Add(btn)
End Sub

query = "INSERT INTO adres(id,instelling,adres,postcode,plaats)VALUES(@Id,@Instelling,@Adres,@Postcode,@Plaats))"
			 cmdInsert.Parameters.Clear()
			 With cmdInsert
				 .CommandText = query
				 .CommandType = CommandType.Text
				 .Parameters.AddWithValue("@Id", Id)
				 .Parameters.AddWithValue("@instelling", Instelling)
				 .Parameters.AddWithValue("@adres", Adres)
				 .Parameters.AddWithValue("@postcode", Postcode)
				 .Parameters.AddWithValue("@plaats", Plaats)
				 .Connection = cnInsert
			 End With
			 HandleConnection(cnInsert)
			 iSqlStatus = cmdInsert.ExecuteNonQuery
			 If Not iSqlStatus = 0 Then
				 Return False
			 Else
				 Return True
			 End If

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

	 Dim MyConnection As System.Data.OleDb.OleDbConnection
	 Dim DtSet As System.Data.DataSet
	 Dim MyCommand As System.Data.OleDb.OleDbDataAdapter
	 MyConnection = New System.Data.OleDb.OleDbConnection("provider=Microsoft.Jet.OLEDB.4.0;Data Source='c:\vb.net-informations.xls';Extended Properties=Excel 8.0;")
	 MyCommand = New System.Data.OleDb.OleDbDataAdapter("select * from [Blad1$]", MyConnection)
	 MyCommand.TableMappings.Add("Table", "Net-informations.com")
	 DtSet = New System.Data.DataSet
	 MyCommand.Fill(DtSet)
	 DataGridView1.DataSource = DtSet.Tables(0)
	 MyConnection.Close()

End Sub

Private Sub Frm_ImportVerbruik_Load(sender As Object, e As EventArgs) Handles MyBase.Load
	 Dim MyConnection As SqlCeConnection
	 Dim DtSet As System.Data.DataSet
	 Dim MyCommand As SqlCeDataAdapter
	 MyConnection = New SqlCeConnection(My.Settings.CS_Voorraad)
	 MyCommand = New SqlCeDataAdapter("select * from [Blad1$]", MyConnection)
	 MyCommand.TableMappings.Add("Table", "Net-informations.com")
	 DtSet = New System.Data.DataSet
	 MyCommand.Fill(DtSet)
	 DGV_Verbruik.DataSource = DtSet.Tables(0)
	 MyConnection.Close()
End Sub

Dim word As Object
On Error Resume Next
Set word = GetObject(, "Word.Application")
On Error GoTo 0
If word Is Nothing Then
MsgBox "Open een Word-document.", vbInformation
Exit Sub
End If
For rij = 1 To eindrij
If word.Documents.Count > 0 Then
	 If Cells(rij, 6).Font.Color = vbWhite Then
		 With word.Activedocument.Range.Font
			 .Color = RGB(51, 153, 102)
			 .Bold = True
		 End With
		 word.Activedocument.Range.InsertAfter Cells(rij, 4) & " - "
		 With word.Activedocument.Range.Font
			 .Underline = True
		 End With
		 word.Activedocument.Range.InsertAfter Cells(rij, 6) & vbCr & vbCr
	 End If
	
	 If Cells(rij, 1) <> "" And Cells(rij, 1).Interior.Color <> RGB(192, 192, 192) And Cells(rij, 1).Interior.Color <> RGB(150, 150, 150) Then
		 With word.Activedocument.Range.Font
			 .ColorIndex = RGB(0, 0, 0)
			 .Bold = False
			 .Underline = False
		 End With
		 word.Activedocument.Range.InsertAfter "# "
		 With word.Activedocument.Range.Font
			 .Underline = True
		 End With
		 If Cells(rij, 4) <> "" Then
			 word.Activedocument.Range.InsertAfter Cells(rij, 4) & vbCr & vbCr
		 Else
			 word.Activedocument.Range.InsertAfter Cells(rij, 6) & vbCr & vbCr
		 End If
		 With word.Activedocument.Range.Font
			 .Underline = False
			 'plus markeren als dat kan
		 End With
		 word.Activedocument.Range.InsertAfter Cells(rij, 1) & vbCr & vbCr
	 End If
End If
Next rij
Set word = Nothing

Imports System.Drawing.Printing
Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim getal1 As Double
Dim getal2 As Double
getal1 = 100.2
getal2 = 60.2
Label1.Text = Format(getal1, "###,##0.00")
Label2.Text = Format(getal2, "###,##0.00")
End Sub

Private Sub PrintDocument1_PrintPage(ByVal sender As Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs) Handles PrintDocument1.PrintPage
Dim font As New Font("microsoft sans serif", 24)

e.Graphics.DrawString(Label1.Text, font, Brushes.Black, 1, 155)
e.Graphics.DrawString(Label2.Text, font, Brushes.Black, 1, 255)


End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
PrintDocument1.Print()

End Sub
End Class

telnet 84.xx.xxx.xxx 3306

Me.ContactBindingSource.Filter = "Voornaam like '%" &
ToolStripTextBox1.Text & "%'"

'Ik wil een backup maken in WSH
Sub MakeFolderPath(myfolder)
For x = drv To Len(myFolder)
MyChr = mid(myFolder,x,1)
If mychr = "\" Then
xfolder = Left(myfolder, x-1)
If not fso.folderExists(xFolder)Then
fso.CreateFolder(xFolder)
End If
End If
Next'x
If not fso.folderExists(myFolder) Then
fso.CreateFolder(myFolder)
End If
End Sub

ListView1.Items(ListViewItemIndex).SubItems(4).ForeColor = Color.Green

			 ListView1.Items(ListViewItemIndex).ForeColor = Color.Green

daTest = New SqlCommand("Select * from Testcodes order by Listbox,Ordernr", connectie)
dataLezer = daTest.ExecuteReader(CommandBehavior.CloseConnection)
While dataLezer.Read
MyList.Add(New MyItem(dataLezer("Omschrijving") & "~" & Trim(dataLezer("Testcode")) & "~" & Trim(dataLezer("Listbox")) & "~ " & Trim(dataLezer("Ordernr")) & "~" & Trim(dataLezer("Farmacie")) & _
"~" & dataLezer("Materiaal") & "~" & Trim(dataLezer("Vraagstelling")) & "~" & Trim(dataLezer("Receptaculum")) & "~ " & Trim(dataLezer("Herkomst")) & "~" & Trim(dataLezer("Tippcode"))))
End While

‘Within this assembly
Friend Property ReservedInformation As String
‘Within this assembly, this class and derived classes
Protected Friend Function ReturnSomeInformation()
Return FirstName & “ “ & LastName
End Function
End Class

Me.DataRepeater1 = New Microsoft.VisualBasic.PowerPacks.DataRepeater

Public Class frmPrint
Dim Datum As Date
Public Sub New(ByVal Datum As Date)
	 InitializeComponent()
	 Me.Datum = Datum
End Sub
Private Sub Print_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
	 'TODO: This line of code loads data into the 'dsPlanlijst.Planlijst' table. You can move, or remove it, as needed.
	 Me.PlanlijstTableAdapter.Fill(Me.dsPlanlijst.Planlijst, Datum)
	 Me.ReportViewer1.RefreshReport()
End Sub
End Class

 private onclickListener leeg3btnListener = new onclickListener() {
public void onclick(View v) {
Connection conn = null;

try
{
String userName = "xxxxxx"; // db username
String password = "xxx"; // db password
String url = "jdbc:mysql://xx.xx.xxx.xxx:3306/xxxx";
Class.forName ("com.mysql.jdbc.Driver").newInstance ();
conn = DriverManager.getConnection (url, userName, password);
//System.out.println ("Database connection established");
Toast.makeText(MainActivity.this, "Database connection established.", Toast.LENGTH_LONG).show();
}
catch (Exception e)
{
Toast.makeText(MainActivity.this, "Cannot connect to database server.", Toast.LENGTH_LONG).show();
}
finally
{
if (conn != null)
{
try
{
conn.close ();
//System.out.println ("Database connection terminated");
Toast.makeText(MainActivity.this, "Database connection terminated.", Toast.LENGTH_LONG).show();
}
catch (Exception e) { /* ignore close errors */ }
}
}
Log.d(logtag,"onclick() ended - stop button");
// getData();
}
};

Citeren

Citeren