- Add two file Resoure ( English and japanese ) Name Resource.resx Resource.ja-JP.resx

Public Class Form1

Public Sub New()

System.Threading.Thread.CurrentThread.CurrentUICulture = Threading.Thread.CurrentThread.CurrentCulture

InitializeComponent()

End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Label1.Text = My.Resources.Resource.Name
Label2.Text = My.Resources.Resource.Adress
Label3.Text = My.Resources.Resource.Room
End Sub
End Class

Imports Excel = Microsoft.Office.Interop.Excel
Imports System.Data
Imports System.Data.SqlClient
Imports System.Windows.Forms
Imports System.Data.OleDb
Imports System.Text
Imports System.Runtime.InteropServices

Public Class Form1

Const con As String = “Data Source=localhost;Initial Catalog=Northwind;Integrated Security=SSPI;Persist Security Info=False”

Const SQLExpression As String = “SELECT CustomerID AS ID, CompanyName AS Company,City, Region, Country FROM Customers”

Dim adp As SqlDataAdapter
Dim ds As DataSet

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) _
Handles MyBase.Load
Dim cn As New SqlConnection(con)
Dim cmd As New SqlCommand(SQLExpression, cn)
cmd.CommandType = CommandType.Text
cn.Open()
adp = New SqlDataAdapter(cmd)
Dim builder As SqlCommandBuilder = New SqlCommandBuilder(adp)
ds = New DataSet
adp.Fill(ds, “XL”)
Me.DataGridView1.DataSource = ds.Tables(“XL”).DefaultView
cn.Close()
cn = Nothing
End Sub

Private Sub Update_Btn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) _
Handles Update_Btn.Click
With Me
.Validate()
.adp.Update(Me.ds.Tables(“XL”))
.ds.AcceptChanges()
End With
End Sub

Private Sub Close_Btn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) _
Handles Close_Btn.Click
ds.Dispose()
adp.Dispose()
ds = Nothing
adp = Nothing
Me.Close()
End Sub

Private Sub Export_Btn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) _
Handles Export_Btn.Click

Dim RowsCount As Int32 = Me.DataGridView1.SelectedRows.Count – 1

If RowsCount > -1 Then
‘The array for field names.
Dim FldNames() As String = {“ID”, “Company”, “City”, “Region”, “Country”}
‘The array for the selected records.
Dim DataArr(RowsCount, 4) As Object
Dim ColsCounter As Int32 = 0

‘Populate the data array – The list is sorted in ascending order.
For RowsCounter As Int32 = 0 To RowsCount
For Each cell As DataGridViewCell In Me.DataGridView1 _
.SelectedRows(RowsCount – RowsCounter) _
.Cells
DataArr(RowsCounter, ColsCounter) = cell.Value
ColsCounter = ColsCounter + 1
Next
ColsCounter = 0
Next

‘Variables for Excel.
Dim xlApp As New Excel.Application
Dim xlWBook As Excel.Workbook = xlApp.Workbooks.Add( _
Excel.XlWBATemplate.xlWBATWorksheet)
Dim xlWSheet As Excel.Worksheet = CType(xlWBook.Worksheets(1), Excel.Worksheet)
Dim xlCalc As Excel.XlCalculation

‘Save the present setting for Excel’s calculation mode and turn it off.
With xlApp
xlCalc = .Calculation
.Calculation = Excel.XlCalculation.xlCalculationManual
End With

‘Write the field names and the data to the targeting worksheet.
With xlWSheet
.Range(.Cells(1, 1), .Cells(1, 5)).Value = FldNames
.Range(.Cells(2, 1), .Cells(RowsCount + 2, 5)).Value = DataArr
.UsedRange.Columns.AutoFit()
End With

With xlApp
.Visible = True
.UserControl = True
‘Restore the calculation mode.
.Calculation = xlCalc
End With

‘Relase objects from memory.
xlWSheet = Nothing
xlWBook = Nothing
xlApp = Nothing
GC.Collect()
End If

End Sub
End Class

Dim tCounter As New Thread(AddressOf RunCounter)

Private Sub RunCounter()
Dim Counter As Integer

Do
setlabel(Counter & “/” & 10000)
Counter += 1
Loop While Counter < 10000
End Sub

Public Delegate Sub setlabeldelegate(ByVal text As String)
Private Sub setlabel(ByVal text As String)

If InvokeRequired Then
Invoke(New setlabeldelegate(AddressOf set_label), New Object() {text})
End If
set_label(text)

End Sub
Private Sub set_label(ByVal text As String)
Label1.Text = text
End Sub

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

If tCounter.IsAlive = False Then

tCounter.Start()

End If
End Sub

Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
tCounter.Abort()
End Sub

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

End Sub
End Class

If e.ColumnIndex < 0 AndAlso e.RowIndex >= 0 AndAlso e.RowIndex < ExDataGrid1.Rows.Count – 1 Then
e.PaintBackground(e.ClipBounds, True)
e.Graphics.DrawString((e.RowIndex + 1).ToString, Me.Font, Brushes.Black, e.CellBounds, sf)
e.Handled = True
End If

End Sub

For I = 0 To ExDataGrid.Columns.Count – 1
rowLine = rowLine & ExDataGrid.Columns(I).Name & “,”
Next
rowLine = rowLine.Remove(rowLine.Length – 1, 1)
objWriter.WriteLine(rowLine)
rowLine = “”
For j = 0 To (ExDataGrid.Rows.Count – 1)
For I = 0 To (ExDataGrid.Columns.Count – 1)
cellvalue = ExDataGrid.Item(I, j).Value.ToString
rowLine = rowLine + Chr(34) & cellvalue & Chr(34) + “,”
Next
rowLine = rowLine.Remove(rowLine.Length – 1, 1)
objWriter.WriteLine(rowLine)
rowLine = “”
Next
objWriter.Close()
objWriter.Dispose()
ExDataGrid.AllowUserToAddRows = True
MsgBox(“保存ファイル成功”)
Catch
End Try

End Sub