Vemale.com - MissKitKatt908, demikianlah nickname pemilik kucing yang diberi nama Ginger ini.

Ginger telah menjadi kucing miliknya sejak ia masih bayi. Mereka tumbuh dan besar bersama dan saling menyayangi satu sama lain.



Saat MissKitKatt908 masih bayi, Ginger juga masih kucing anak-anak yang butuh bermain dan belaian kasih sayang. Ginger selalu setia menunggu majikannya pulang ke rumah setiap majikannya pergi. Ia akan duduk di sofa dengan manis dan melompat pada majikannya.

Di hari pertama MissKitKatt masuk sekolah dasar, Ginger menemani dan memberi semangat. Mereka berdua sosok yang tak terpisahkan. Persahabatan antara anak manusia dan seekor kucing rumahan.



Dan tepat pada usia MissKitKatt 19 tahun, Ginger yang sudah tua akhirnya harus menyerah pada usia. Persahabatan itu mungkin memang tidak pernah mati, tetapi raga yang sudah 19 tahun menemani harus pergi.



MissKitKatt908, demikianlah nickname pemilik kucing yang diberi nama Ginger ini. Ginger telah menjadi kucing miliknya sejak ia masih bayi. Mereka tumbuh dan besar bersama dan saling menyayangi satu sama lain hingga 19 tahun lamanya.

- majalaya [uki]
- jablay 35jt
- laptop ramayana
- budsak
- salon
- taxi
- b.i.c
- kontrakan


Click Me For A Modal


Click Me Again!

Bah Haji Deden

Kencleng

cirata mpu
tasik cukur
wanayasa bf

Si tukik aya mbah di engok??

Bah dinta di sadang (si bncoi).

si soleh teu nyangka boga kawawuhan mbah di situdam. 50rb?? Murah gning, wkwkwk

"Export Listview to Excel & Print!" adalah sebuah example script yang saya buat untuk meng-export data dari listview ke microsoft excel supaya dapat di print.

Berikut kodenya:

;###############################
;#    Author: Pyzonet          #
;###############################
 
#include 
#include 
#include 
#include 
#NoTrayIcon
 
Local $style = BitOR($LVS_EX_GRIDLINES, $LVS_EX_FULLROWSELECT)
Local $msg
 
GUICreate("Export Listview to Excel & Print!",500,500); CREATE GUI
$lv = GUICtrlCreateListView("",0,0,500,450)
_GUICtrlListView_SetExtendedListViewStyle(-1,$style)
_GUICtrlListView_SetSelectedColumn(-1, 0)
$export = GUICtrlCreateButton("EXPORT TO EXCEL",20,460,120,30)
$exit = GUICtrlCreateButton("EXIT",360,460,120,30)
 
colanditems()
 
GUISetState(@SW_SHOW)
 
While 1
 
 Select
  Case $msg = $export
   exporttoexcel()
 
  Case $msg = $exit
   Exit
 EndSelect
 
  $msg = GUIGetMsg()
 
  If $msg = $GUI_EVENT_CLOSE Then ExitLoop
 WEnd
 
GUIDelete()
 
Func colanditems(); CREATE COLUMNS, ITEMS AND SUBITEMS
For $x = 1 to 9
 _GUICtrlListView_InsertColumn($lv,$x,"Col " & $x, 100)
 _GUICtrlListView_AddItem($lv, "Row " & $x & " item " & $x)
 For $x2 = 1 to 10
 _GUICtrlListView_AddSubItem($lv, $x2 - 2, "subitem 1", 1)
 _GUICtrlListView_AddSubItem($lv, $x2 - 2, "subitem 2", 2)
 _GUICtrlListView_AddSubItem($lv, $x2 - 2, "subitem 3", 3)
 _GUICtrlListView_AddSubItem($lv, $x2 - 2, "subitem 4", 4)
 _GUICtrlListView_AddSubItem($lv, $x2 - 2, "subitem 5", 5)
 _GUICtrlListView_AddSubItem($lv, $x2 - 2, "subitem 6", 6)
 _GUICtrlListView_AddSubItem($lv, $x2 - 2, "subitem 7", 7)
 _GUICtrlListView_AddSubItem($lv, $x2 - 2, "subitem 8", 8)
 Next
Next
EndFunc
 
Func exporttoexcel();EXPORT TO EXCEL
$col = 9
$count = _GUICtrlListView_GetItemCount($lv)
GUICtrlSetState($export,$gui_disable)
$excel = _ExcelBookNew()
For $colexcel = 1 To $col
_ExcelWriteCell($excel,"Col " & $colexcel,1,$colexcel)
 $i = 0
 do
  _ExcelWriteCell($excel, _GUICtrlListView_GetItemText($lv,$i,0),2 + $i,1)
  _ExcelWriteCell($excel, _GUICtrlListView_GetItemText($lv,$i,1),2 + $i,2)
  _ExcelWriteCell($excel, _GUICtrlListView_GetItemText($lv,$i,2),2 + $i,3)
  _ExcelWriteCell($excel, _GUICtrlListView_GetItemText($lv,$i,3),2 + $i,4)
  _ExcelWriteCell($excel, _GUICtrlListView_GetItemText($lv,$i,4),2 + $i,5)
  _ExcelWriteCell($excel, _GUICtrlListView_GetItemText($lv,$i,5),2 + $i,6)
  _ExcelWriteCell($excel, _GUICtrlListView_GetItemText($lv,$i,6),2 + $i,7)
  _ExcelWriteCell($excel, _GUICtrlListView_GetItemText($lv,$i,7),2 + $i,8)
  _ExcelWriteCell($excel, _GUICtrlListView_GetItemText($lv,$i,8),2 + $i,9)
 $i = $i + 1
 Until $i = $count
Next
 
$ask = MsgBox(4,"Message","Export completed!" & @cr & @cr & "Do you want to print it now?")
if $ask = 6 Then
 Send("^p")
EndIf
 
EndFunc

Hasilnya seperti ini:

"Export Listview to Excel & Print!" ini juga saya posting di forum autoit di bagian thread "Example Scripts".

Enjoy!!!