Kompress Gambar Pada Microsoft Office Word dan Excel

Sering sekali saya menemukan rekan-rekan kerja yang kesulitas saat ingin mengirim email. Setelah saya cek ternyata masalahnya adalah karena ukuran file tersebut teramat besar, 4 MB! padahal file yang akan di email tersebut hanyalah file office (word / excel).

Setelah saya  buka, ternyata yang membuat ukuran file nya begitu sangat besar untuk ukuran file office adalah karena di dalamnya di sisipkan foto dengan resolusi tinggi.

berikut adalah langkah-langkah untuk memperkecil ukuran file pada dokumen word / excel Anda, agar lebih mudah jika file tersebut di lampirkan dalam email.

1. Klik gambar/foto yang akan kita compress / perkecil.
2. Klik Tab Format
3. Klik Compress pictures
4. Saat Dialog "Compress Picture" tampil, pilih pilihan "Options"
5. Pilih Options "E-Mail (96 ppi)..." pada dialog "Compressions Setting" lalu klik "OK" dan "OK" lagi 
6. Setelah itu simpan dokumen Anda.
7. Ukuran file akan jauh berkurang jika proses compress berjalan sebagaimanamestinya.

Jika ukuran file masih besar, ikuti kembali langkah2 di atas dengan teliti.

Semoga bermanfaat.

* office yang saya gunakan adalah office 2007

Set Devexpress LookupEdit Datasource use msSQL Stored Procedure

Sub __OpenRsTipe()
        Dim dtTipe As New DataTable
        With _SqlCommand
            .CommandText = "mstTipe_SELECT_id_Nama_WHERE_Merek_Honda"
            .Parameters.Clear()
            _SQLReader = .ExecuteReader
        End With
        dtTipe.Load(_SQLReader)
        With LookUpTipe
            .Properties.DataSource = dtTipe
            .Properties.ValueMember = "Nama"
            .Properties.DisplayMember = "Nama"
            .Properties.PopupWidth = 250
        End With
        _SQLReader.Close()
    End Sub

How To Add 2 Relations to dataset ?

I have two dataadapter in one dataset as shown.
1st dataset named "tblMaster"
2nd dataset named "tblDetail"



i use code below to create relations by Type Column (A)

Dim KeyPriTipe As DataColumn = dsRencanaAlokasi.Tables("tblMaster").Columns("Type")
Dim keyForTipe As DataColumn = dsRencanaAlokasi.Tables("tblDetail").Columns("Type")
dsRencanaAlokasi.Relations.Add("Detail", KeyPriTipe, keyForTipe, False)


 how can i add more relations (B) to dataset so the datasets linked by two relations, Type and Color?


''=======================================================================
i got my answer by myself. Array is the answer. heres the single code:



dsRencanaAlokasi.Relations.Add("NewRelation", New DataColumn() {dsRencanaAlokasi.Tables("Master").Columns("Tipe"), dsRencanaAlokasi.Tables("Master").Columns("Warna")}, _
                                                     New DataColumn() {dsRencanaAlokasi.Tables("Detail").Columns("Tipe"), dsRencanaAlokasi.Tables("Detail").Columns("Warna")})

Adding a DataTable to a DataSet

Dim customerOrders As DataSet = New DataSet("CustomerOrders")

Dim ordersTable As DataTable = customerOrders.Tables.Add("Orders")

Dim pkOrderID As DataColumn = ordersTable.Columns.Add( _
    "OrderID", Type.GetType("System.Int32"))
ordersTable.Columns.Add("OrderQuantity", Type.GetType("System.Int32"))
ordersTable.Columns.Add("CompanyName", Type.GetType("System.String"))

ordersTable.PrimaryKey = New DataColumn() {pkOrderID}

sumber : http://msdn.microsoft.com

Copycat | Age 0 - 3 Month

Copycat is a great imitation game you can play with your baby from the infant stages. It will strengthen emotional bond with your baby as well has help him with movement coordination.


Hold your baby closely or lie him down on a soft flat surface. Be sure to be close enough (8-12 inches) so that he can see you, especially for infants. Face-to-face, start with small movements, like sticking out your tongue or opening your mouth in a wide grin. If you are patient, your baby may try to imitate you, though with very small movements. As your baby gets older, you can try larger body movements with your head or hands and arms.

One variation you may try is to imitate your baby instead. Remember to encourage and praise your baby on any small successes!

Learning and Development Skills:

• Social and Emotional
• Movement, Motor Control and Hand Eye Coordination

sumber : http://www.gameswithbaby.com

Get Detail Rows Value pada DevExpress Grid Control

Private Sub gridViewLaporan_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles gridViewLaporan.MouseUp
        If e.Button = Windows.Forms.MouseButtons.Right Then
            Dim _gridView As GridView = gridLaporan.FocusedView
            MsgBox(_gridView.GetFocusedDisplayText)
        End If
    End Sub

How to show a context menu for grid rows

[C#]

using DevExpress.XtraGrid.Views.Grid;
using DevExpress.XtraGrid.Views.Grid.ViewInfo;

private void gridView1_ShowGridMenu(object sender,DevExpress.XtraGrid.Views.Grid.GridMenuEventArgs e) {
GridView view = sender as GridView;
GridHitInfo hitInfo = view.CalcHitInfo(e.Point);
if(hitInfo.InRow) {
view.FocusedRowHandle = hitInfo.RowHandle;
ContextMenu1.Show(view.GridControl, e.Point);
}
}

[VB.NET]

Imports DevExpress.XtraGrid.Views.Grid

Private Sub GridView1_ShowGridMenu(ByVal sender As Object, ByVal e As
DevExpress.XtraGrid.Views.Grid.GridMenuEventArgs) Handles GridView1.ShowGridMenu
   Dim View As GridView = CType(sender, GridView)
   Dim HitInfo As ViewInfo.GridHitInfo
   HitInfo = View.CalcHitInfo(e.Point)
   If HitInfo.InRow Then
       View.FocusedRowHandle = HitInfo.RowHandle
       ContextMenu1.Show(View.GridControl, e.Point)
   End If
End Sub

Attachments

• dxKB1386.zip (37301 bytes)

Sumber : http://www.devexpress.com