Perang Tiada Henti Antara Microsoft Dan Google

Peperangan antara Google dan Microsoft semakin memanas. Beberapa bulan lalu, Microsoft telah menyediakan jasa search engine melalui Bing untuk menyaingi search engine milik Google. Peperangan dilanjutkan dengan diumumkannya OS yang berbasiskan Chrome oleh Google. Seperti yang sudah diberitakan sebelumnya, pengumuman ini seperti tantangan langsung kepada pihak Microsoft yang akan merilis versi retail dari Windows 7. Untuk menjawab tantangan langsung dari Google, Microsoft kembali mengumumkan sebuah layanan website Microsoft Office 2010 secara gratis.

Namun, tidak semua layanan Office 2010 versi online dapat dinikmati. Microsoft hanya membatasi penggunaan Office 2010 hanya pada Word, Excel, Power Point, dan juga OneNote. Untuk menikmati layanan gratis dari Microsoft ini, Anda harus sedikit bersabar. Layanan ini baru akan tersedia pada paruh kedua tahun 2010. Layanan gratis yang diberikan oleh Microsoft ini mirip dengan servis yang telah diberikan oleh Google, yaitu Google docs.

Pihak Microsoft juga memberi pernyataan bahwa Office 2010 versi online ini tidak akan sekuat versi desktopnya. Ada beberapa feature baru yang ada di Office 2010 versi desktop yang dihilangkan pada versi onlinenya. Seperti contohnya, Microsoft berencana untuk membuat user dapat mengedit video dalam PowerPoint dan memanipulasi gambar di dalam Word. Kedua feature tambahan itu tidak ada dalam versi online.

Pada hari Senin kemarin, Microsoft telah mengumumkan akan diluncurkannya Microsoft Office terbaru, yaitu Office 2010. Menariknya lagi, file installer untuk versi 32-bit dan 64-bit akan dimasukkan dalam satu DVD. Rencananya, Office 2010 akan dibanderol dengan harga $70 untuk basic student version dan $350 untuk professional version.

Sumber : www.Chip.co.id

Ubah Warna Form dengan HScrollBar

Deskripsi : Anda ingin mengubah warna form program Anda setiap saat ketika Program Anda sedang RUN..?? Berikut Tipsnya&^-^..

'*************************************
'* Ubah Warna Form dengan HScrollBar *
'*************************************
'Email : ryan20shinichi@gmail.com
'Facebook : Shinichi Ryan
'--------------------------------
'Komponen Yang dibutuhkan :
'1. 1 Project & 1 Form
'2. 3 HScrollBar
'Koding di Form

'--------- Batas Awal ----------
Private Sub HScroll1_Change(Index As Integer)
Me.BackColor = RGB(HScroll1(0), HScroll1(1), HScroll1(2))
End Sub
'--------- Batas Akhir ----------

Form Transparan

Deskripsi : Tips berikut ini adalah bagaimana Form terlihat Transparan sehingga yang terlihat hanyalah Gambar Backgroundnya saja!

'*******************
'* Form Transparan *
'*******************
'Email : ryan20shinichi@gmail.com
'Facebook : Shinichi Ryan
'--------------------------------
'Komponen Yang dibutuhkan :
'1. 1 Project & 1 Form
'2. 1 Module
'Sebelumnya Atur Nilai Properties Form nya sbb:
'1. Ubah BackColor --> Biru
'2. Ubah BorderStyle ---> 0-None
'3. Masukkan Gambar dgn Extension .gif



'Koding di Form
'--------- Batas Awal ----------
Option Explicit
Dim color As Long, flag As Byte

Private Sub Form_Activate()
On Error GoTo Err
color = vbBlue
flag = flag Or LWA_COLORKEY
SetTransparan Form1.hwnd, color, 0, flag
Exit Sub
Err: MsgBox Err.Description & " Source : " & Err.Source
End Sub


Private Sub Label1_Click()
End
End Sub
'--------- Batas Akhir ---------- '


'Koding di Module
'--------- Batas Awal ----------
Option Explicit
Public Const LWA_COLORKEY = 1
Public Const LWA_ALPHA = 2
Public Const LWA_BOTH = 3
Public Const WS_EX_LAYERED = &H80000
Public Const GWL_EXSTYLE = -20
Public Declare Function SetLayeredWindowAttributes Lib "user32" (ByVal hwnd As Long, ByVal warna As Long, ByVal X As Byte, ByVal alpha As Long) As Boolean
Public Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Public Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long

Sub SetTransparan(frm As Long, warna As Long, nTrans As Integer, flag As Byte)
On Error GoTo Err

Dim attrib As Long
attrib = GetWindowLong(frm, GWL_EXSTYLE)
SetWindowLong frm, GWL_EXSTYLE, attrib Or WS_EX_LAYERED
SetLayeredWindowAttributes frm, warna, nTrans, flag
Exit Sub
Err:
MsgBox Err.Description & " Source : " & Err.Source
End Sub
'--------- Batas Akhir ----------

Form Tanpa Title Bar

Deskripsi : Banyak kita jumpai Form tanpa Title Bar, Anda tahu cara menghilangkannya?? Berikut Tipsnya..

'************************
'* Form Tanpa Title Bar *
'************************
'Email : ryan20shinichi@gmail.com
'Facebook : Shinichi Ryan
'--------------------------------
'Komponen Yang dibutuhkan :
'1. 1 Project & 1 Form
'2. 1 Command (for Exit)

Form Hanya Run 1x

Deskripsi : Ketika Program VB Anda telah di-Compile menjadi (.exe),
Program Anda dapat RUN lebih dari 1x,, Pertanyaannya,
Bisakah Program Anda hanya dapat RUN 1x?? Berikut Tipsnya^-^
'*********************
'* Form Hanya Run 1x *
'*********************
'Email : ryan20shinichi@gmail.com
'Facebook : Shinichi Ryan
'--------------------------------
'Komponen Yang dibutuhkan :
'1. 1 Project & 1 Form
'2. Telah diCompile
'Koding di Form

'--------- Batas Awal ----------
Private Sub Form_Load()
If App.PrevInstance = True Then End
End Sub
'--------- Batas Akhir ----------

Drag Form Tanpa Harus pada Title Bar

Deskripsi : Tips berikut ini adalah bagaimana men-Drag Form tanpa harus pada Title Bar

'****************************************
'* Drag Form Tanpa Harus pada Title Bar *
'****************************************
'Email : ryan20shinichi@gmail.com
'Facebook : Shinichi Ryan
'--------------------------------
'Komponen Yang dibutuhkan :
'1. 1 Project & 1 Form
'Koding di Form
'--------- Batas Awal ----------
Option Explicit
Dim drag_horizontal, drag_vertikal As Integer

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
drag_horizontal = X
drag_vertikal = Y
End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = vbLeftButton Then
Me.Left = Me.Left - (drag_horizontal - X)
Me.Top = Me.Top - (drag_vertikal - Y)
End If
End Sub
'--------- Batas Akhir ----------

Animasi Form Exit

Deskripsi : Anda ingin Tombol Keluar pada Program VB Anda terlihat berbeda dari biasanya? Berikut Tips Agar Tombol Keluar dapat Naik & Turun..


'*********************
'* Animasi Form Exit *
'*********************
'Email : ryan20shinichi@gmail.com
'Facebook : Shinichi Ryan
'--------------------------------
'Komponen Yang dibutuhkan :
'1. 1 Project & 1 Form
'2. 2 Command
'Koding di Form
'--------- Batas Awal ----------
'Keluar(Naik)
Private Sub Command1_Click()
Do Until Me.Top <= -4000 Me.Move Me.Left, Me.Top - 30: DoEvents Loop End End Sub 'Keluar(Turun) Private Sub Command2_Click() Do Until Me.Top > 15000
Me.Move Me.Left, Me.Top + 30: DoEvents
Loop
End
End Sub
'--------- Batas Akhir ----------