bmozdemir

evet aslında mantık aynı ama bana lazım olan o bölgeyi yasaklamak olduğu için bu kod gerekiyordu neyseki buşdum ilginize teşekkür ederim.

ilginize teşekkür ederim gerçekten güzel ve anlaşılır olmuş benim için lakin amacım bu tarz ayrı ayrı kod gruplarının nasıl bağlanabildiği idi bana bu tarz bilgilerini edinebileceğim bir döküman veya bir kaynak bulamadığımdan bu tarz bir soru sorma gereğinde bulundum ilginize teşekkür ederim. Birde show gui 1 butonuna tıklayınca diğer butonlara tıklayamıyorum pasif hale geliyorlar. ilginize tekrar teşekkür ederim.

Arkadaşlar elimde 4, 5 adet kod var ve bunları 1 exe içerisinde çalıştırmayı istiyorum fakat ne yaptıysam beceremedim eğer yardım ederseniz sevinirim. Birde Örnek 1'de [color=#282828][size=2][background=rgb(248, 248, 248)]Case $hButton1 kısmında \index.html [/background][/size][/color]kısmında sayfayı bulamayınca hata veriyor. bunu nasıl önleyebilirim. 1. Örnek Kod [CODE] #include <GUIConstantsEx.au3> #include <IEE.au3> Global $hGUI2 = 9999, $hGUI3 = 9999, $hGUI4 = 9999, $h1Button1 = 9999, $h2Button1 = 9999, $h3Button1 = 9999 ; Predeclare the variables with dummy values to prevent firing the Case statements gui1() Func gui1() $hGUI1 = GUICreate("Gui 1", 600, 600, 4, 4) $hButton1 = GUICtrlCreateButton("Web Page 1", 20, 10, 80, 30) $hButton2 = GUICtrlCreateButton("Web Page 2", 100, 10, 80, 30) $hButton3 = GUICtrlCreateButton("Web Page 3", 180, 10, 80, 30) $hButton4 = GUICtrlCreateButton("Web Page 4", 260, 10, 80, 30) $hButton5 = GUICtrlCreateButton("Web Page 5", 340, 10, 80, 30) $hButton6 = GUICtrlCreateButton("Web Page 6", 420, 10, 80, 30) $hButton7 = GUICtrlCreateButton("Web Page 7", 500, 10, 80, 30) $hButton8 = GUICtrlCreateButton("Show Gui 1", 20, 560, 80, 30) $hButton9 = GUICtrlCreateButton("Show Gui 2", 100, 560, 80, 30) $hButton10 = GUICtrlCreateButton("Show Gui 3", 180, 560, 80, 30) $hButton11 = GUICtrlCreateButton("Show Gui 4", 260, 560, 80, 30) $hButton12 = GUICtrlCreateButton("Show Gui 5", 340, 560, 80, 30) $hButton13 = GUICtrlCreateButton("Show Gui 6", 420, 560, 80, 30) $hButton14 = GUICtrlCreateButton("Show Gui 7", 500, 560, 80, 30) $MonthCal1 = GUICtrlCreateMonthCal("", 184, 184, 236, 164) GUISetState() While 1 $aMsg = GUIGetMsg(1) ; Use advanced parameter to get array Switch $aMsg[1] ; check which GUI sent the message Case $hGUI1 Switch $aMsg[0] ; Now check for the messages for $hGUI1 Case $GUI_EVENT_CLOSE ; If we get the CLOSE message from this GUI - we exit <<<<<<<<<<<<<<< ExitLoop Case $hButton1 Local $oIE = _IE_Example("basic") _IEPropertySet($oIE, "addressbar", False) _IENavigate($oIE, "\index.html") Case $hButton8 MsgBox("", "MsgBox 1", "Test from Gui 1") Case $hButton9 GUICtrlSetState($hButton9, $GUI_DISABLE) gui2() Case $hButton10 GUICtrlSetState($hButton10, $GUI_DISABLE) gui3() Case $hButton11 GUICtrlSetState($hButton11, $GUI_DISABLE) gui4() EndSwitch Case $hGUI2 Switch $aMsg[0] ; Now check for the messages for $hGUI2 Case $GUI_EVENT_CLOSE ; If we get the CLOSE message from this GUI - we just delete the GUI <<<<<<<<<<<<<<< GUIDelete($hGUI2) GUICtrlSetState($hButton9, $GUI_ENABLE) Case $h1Button1 MsgBox("", "MsgBox", "Test from Gui 2") EndSwitch Case $hGUI3 Switch $aMsg[0] ; Now check for the messages for $hGUI2 Case $GUI_EVENT_CLOSE ; If we get the CLOSE message from this GUI - we just delete the GUI <<<<<<<<<<<<<<< GUIDelete($hGUI3) GUICtrlSetState($hButton10, $GUI_ENABLE) Case $h2Button1 MsgBox("", "MsgBox", "Test from Gui 3") EndSwitch Case $hGUI4 Switch $aMsg[0] ; Now check for the messages for $hGUI2 Case $GUI_EVENT_CLOSE ; If we get the CLOSE message from this GUI - we just delete the GUI <<<<<<<<<<<<<<< GUIDelete($hGUI4) GUICtrlSetState($hButton11, $GUI_ENABLE) Case $h3Button1 MsgBox("", "MsgBox", "Test from Gui 3") EndSwitch EndSwitch WEnd EndFunc ;==>gui1 Func gui2() $hGUI2 = GUICreate("Gui 2", 600, 600, 50, 50) $h1Button1 = GUICtrlCreateButton("MsgBox 2", 10, 10, 80, 30) $h1Button2 = GUICtrlCreateButton("MsgBox 3", 10, 40, 80, 30) GUISetState() EndFunc ;==>gui2 Func gui3() $hGUI3 = GUICreate("Gui 3", 600, 600, 100, 100) $h2Button1 = GUICtrlCreateButton("MsgBox 2", 10, 10, 80, 30) $h2Button2 = GUICtrlCreateButton("MsgBox 3", 10, 40, 80, 30) GUISetState() EndFunc ;==>gui3 Func gui4() $hGUI4 = GUICreate("Gui 4", 600, 600, 150, 150) $h3Button1 = GUICtrlCreateButton("MsgBox 2", 10, 10, 80, 30) $h3Button2 = GUICtrlCreateButton("MsgBox 3", 10, 40, 80, 30) GUISetState() EndFunc ;==>gui4 [/CODE] 2. Örnek Kod [CODE] #include "MouseOnEvent.au3" HotKeySet("{ESC}", "_Quit") Global $iLimit_Coord_Left = 0 Global $iLimit_Coord_Top = 20 Global $iLimit_Coord_Width = 1500 Global $iLimit_Coord_Height = 25 ;This will disable primary down event, double clicks included (see next) _MouseSetOnEvent($MOUSE_PRIMARYDOWN_EVENT, "_MousePrimaryDown_Event", 0, -1) ;Enable Double click, comment next line if double clicks should be disabled _MouseSetOnEvent($MOUSE_PRIMARYDBLCLK_EVENT, "_MousePrimaryDown_Event", 0, -1) While 1 Sleep(100) WEnd Func _MousePrimaryDown_Event() Local $aMPos = MouseGetPos() If ($aMPos[0] >= $iLimit_Coord_Left And $aMPos[0] <= $iLimit_Coord_Left + $iLimit_Coord_Width) And _ ($aMPos[1] >= $iLimit_Coord_Top And $aMPos[1] <= $iLimit_Coord_Top + $iLimit_Coord_Height) Then Return 1 ;Block mouse click Return 0 EndFunc Func _Quit() Exit EndFunc [/CODE] Bu @blue_life Arkadaşın verdiği bir örnek 3.Örnek Kod [CODE] Local $var = IniRead("C:\1.ini", "SectionName", "key", "Hata") Global $BlueLife_Info[5] _BlueLife_Info($var, 1336, 30) While 1 For $i = 1390 To -1400 Step -1 GUICtrlSetPos($BlueLife_Info[1], $i) Sleep(5) Next WEnd GUICtrlSetData($BlueLife_Info[1], "Kurulum tamamlandı.") _BlueLife_Info(1, 0, 0) Exit ;çıkış Func _BlueLife_Info($BL_MSG, $BL_X = 200, $BL_Y = 50) Local $Tray_Heihgt = WinGetHandle("[CLASS:Shell_TrayWnd]") If $Tray_Heihgt = "" Then $Tray_Heihgt = 0 Else $Tray_Heihgt = WinGetPos($Tray_Heihgt) $Tray_Heihgt = $Tray_Heihgt[3] EndIf If IsHWnd($BlueLife_Info[0]) = 0 Then $BlueLife_Info[0] = GUICreate("", $BL_X, $BL_Y, @DesktopWidth - ($BL_X + 2), (@DesktopHeight - $Tray_Heihgt) - $BL_Y, 0x80000000) $BlueLife_Info[1] = 0 $BlueLife_Info[2] = $BL_X $BlueLife_Info[3] = $BL_Y $BlueLife_Info[4] = 100 GUISetBkColor(0x3300CC) Local $BK_GUI_GDI = DllCall("gdi32.dll", "long", "CreateRoundRectRgn", "long", 1, "long", 1, "long", $BlueLife_Info[2], "long", $BlueLife_Info[3], "long", 5, "long", 5) If $BK_GUI_GDI[0] Then DllCall("user32.dll", "long", "SetWindowRgn", "hwnd", $BlueLife_Info[0], "long", $BK_GUI_GDI[0], "int", 1) EndIf $BlueLife_Info[1] = GUICtrlCreateLabel($BL_MSG, 6, 6, $BlueLife_Info[2] - 10, $BlueLife_Info[3] - 10) ;, 1 GUICtrlSetFont(-1, 11, 800, 0, "MS Sans Serif") GUICtrlSetColor(-1, 0xFFFFFF) GUICtrlSetResizing(-1, 64 + 32) GUISetState(@SW_SHOWNOACTIVATE) WinSetTrans($BlueLife_Info[0], "", $BlueLife_Info[4]) Else If StringIsDigit($BL_MSG) = 1 And $BL_X + $BL_Y = 0 Then Sleep($BL_MSG) Do $BlueLife_Info[4] -= 5 WinSetTrans($BlueLife_Info[0], "", $BlueLife_Info[4]) Sleep(25) Until $BlueLife_Info[4] < 1 GUIDelete($BlueLife_Info[0]) $BlueLife_Info = "" Return EndIf GUICtrlSetData($BlueLife_Info[1], $BL_MSG) If $BL_X <> $BlueLife_Info[2] Or $BL_Y <> $BlueLife_Info[3] Then $BlueLife_Info[2] = $BL_X $BlueLife_Info[3] = $BL_Y WinMove($BlueLife_Info[0], "", @DesktopWidth - ($BlueLife_Info[2] + 2), (@DesktopHeight - $Tray_Heihgt) - $BlueLife_Info[3], $BlueLife_Info[2], $BlueLife_Info[3], 1) Local $BK_GUI_GDI = DllCall("gdi32.dll", "long", "CreateRoundRectRgn", "long", 1, "long", 1, "long", $BlueLife_Info[2], "long", $BlueLife_Info[3], "long", 5, "long", 5) If $BK_GUI_GDI[0] Then DllCall("user32.dll", "long", "SetWindowRgn", "hwnd", $BlueLife_Info[0], "long", $BK_GUI_GDI[0], "int", 1) EndIf EndIf EndIf EndFunc [/CODE] İşin aslı örnek olarak bunlar ama atıyorum ben bişi daha eklemek istesem programa nasıl ekleyeceğim gerçek derdim bu bunlar birbirleri ile çakışıyorlar. Eğer yardım ederseniz çok sevinirim. İyi günler.

@blue_life Öncelikle mükemmel bir örnek olmuş. Benim sorum biz buna bilgisayarı kapat yada oturumu kapat komutunu nasıl ekleriz acaba. Birde elimde 3 ayrı kod var ve bunları tek script haline nasıl getirebilirim. İsterseniz kodları yollayabilirim.

İlginize çok teşekkür ederim aradığım kodu buldum. Belki işine yarayan olur diye buraya ekliyorum. İyi günler. [quote] [CODE] #include "MouseOnEvent.au3" HotKeySet("{ESC}", "_Quit") Global $iLimit_Coord_Left = 0 Global $iLimit_Coord_Top = 20 Global $iLimit_Coord_Width = 1500 Global $iLimit_Coord_Height = 25 ;This will disable primary down event, double clicks included (see next) _MouseSetOnEvent($MOUSE_PRIMARYDOWN_EVENT, "_MousePrimaryDown_Event", 0, -1) ;Enable Double click, comment next line if double clicks should be disabled _MouseSetOnEvent($MOUSE_PRIMARYDBLCLK_EVENT, "_MousePrimaryDown_Event", 0, -1) While 1 Sleep(100) WEnd Func _MousePrimaryDown_Event() Local $aMPos = MouseGetPos() If ($aMPos[0] >= $iLimit_Coord_Left And $aMPos[0] <= $iLimit_Coord_Left + $iLimit_Coord_Width) And _ ($aMPos[1] >= $iLimit_Coord_Top And $aMPos[1] <= $iLimit_Coord_Top + $iLimit_Coord_Height) Then Return 1 ;Block mouse click Return 0 EndFunc Func _Quit() Exit EndFunc [/CODE] [/quote]

Herkese kolay gelsin. Mesela belli bir koordinatlar içerisinde fare'ye tıklandığında ESC tuşuna basılmasını nasıl ayarlayabilirim. Örnek resimdeki dikdörtgenin içinde herhangi bir yere tıklandığında esc tuşuna basılması istiyorum fakat bu ben programı kapatana katar hep ektif olmasınıda sağlamam gerekiyor. Yardımlarınız için şimdiden teşekkürler. [img]http://e1210.hizliresim.com/12/6/dq16k.jpg[/img]

@blue_life evet elinize sağlık güzel olmuş fakat ini dosyası aradan bir dosya silindiğinde atıyorum 19'u sildiğimde lisview'de düzgün görüntülüyor fakat ini dosyası 19'u siliyor ve o numarayı es geçerek devam ediyor. Buda ini dosyasında karmaşa yaratıp sonraki kayıtları kayıt altına almıyor. Aslinda silme işleminden sonra listview'deki gibi komple ini dosyasını tekrar silip baştan oluşturamıyor muyuz acaba? kodları göndermedim sizin son mesajınızda mevcut zaten bi değişiklik yapmadım işin aslı. İlginize ve alakanız için tekrar minnettarım.

@blue_life ilgili kod üstte olduğundan dolayı tekrar yazmamıştım neyse kusura bakmayın kod aşşağıdaki birde InventoryData.ini dosyasınıda koyuyorum. [codebox] #include <array.au3> Global $ScriptDir = @ScriptDir If StringRight($ScriptDir, 1) <> "\" Then $ScriptDir &= "\" Global $INI_FILE = $ScriptDir & "InventoryData.ini" Global $BLUE_ARRAY Global $i=1 Global $MainForm = GUICreate("Form1", 623, 442) Global $ListView1 = GUICtrlCreateListView("Sıra|Product Code|Make|Model|Current Stock|Date Modified", 16, 8, 586, 390) GUICtrlSendMsg(-1, 4126, 0, 100) GUICtrlSendMsg(-1, 4126, 1, 100) GUICtrlSendMsg(-1, 4126, 2, 100) GUICtrlSendMsg(-1, 4126, 3, 82) GUICtrlSendMsg(-1, 4126, 4, 80) GUICtrlSendMsg(-1, 4126, 5, 120) _Update_ListView() ;ListView Güncelle Global $Button1 = GUICtrlCreateButton("Add A Product", 16, 408, 91, 25) Global $Button2 = GUICtrlCreateButton("Edit A Product", 120, 408, 91, 25) Global $Button3 = GUICtrlCreateButton("Delete A Product", 224, 408, 107, 25) GUISetState(@SW_SHOW) While 1 $nMsg = GUIGetMsg() Switch $nMsg Case -3 Exit Case $Button1 _Add_Edit_AProduct() Case $Button2 _Add_Edit_AProduct("Edit") Case $Button3 _DeleteItem() EndSwitch WEnd Func _READ_INI() Local $RETURN_ARRAY[25][7] ;GCID,Product Code,Make,Model,Current Stock,Date Modified= $RAD_ISName = IniReadSectionNames($INI_FILE) If Not @error Then For $i = 1 To $RAD_ISName[0] If StringLeft($RAD_ISName[$i], 0) <> "" Then ContinueLoop $RETURN_ARRAY[0][0] += 1 If UBound($RETURN_ARRAY, 1) <= $RETURN_ARRAY[0][0] Then ReDim $RETURN_ARRAY[$RETURN_ARRAY[0][0] + 25][7] $RETURN_ARRAY[$RETURN_ARRAY[0][0]][1] = StringStripWS(IniRead($INI_FILE, $RAD_ISName[$i], "Sıra", $RAD_ISName[$i]), 3) $RETURN_ARRAY[$RETURN_ARRAY[0][0]][2] = IniRead($INI_FILE, $RAD_ISName[$i], "Product Code", "") $RETURN_ARRAY[$RETURN_ARRAY[0][0]][3] = IniRead($INI_FILE, $RAD_ISName[$i], "Make", "") $RETURN_ARRAY[$RETURN_ARRAY[0][0]][4] = IniRead($INI_FILE, $RAD_ISName[$i], "Model", "") $RETURN_ARRAY[$RETURN_ARRAY[0][0]][5] = IniRead($INI_FILE, $RAD_ISName[$i], "Current Stock", "") $RETURN_ARRAY[$RETURN_ARRAY[0][0]][6] = IniRead($INI_FILE, $RAD_ISName[$i], "Date Modified", "") Next EndIf If UBound($RETURN_ARRAY, 1) <> ($RETURN_ARRAY[0][0] + 1) Then ReDim $RETURN_ARRAY[$RETURN_ARRAY[0][0] + 1][7] Return $RETURN_ARRAY EndFunc ;==>_READ_INI Func _Update_ListView() If IsArray($BLUE_ARRAY) = 0 Then $BLUE_ARRAY = _READ_INI() ;Read_Ini_File EndIf For $i = 1 To $BLUE_ARRAY[0][0] If $BLUE_ARRAY[$i][0] = -1 Then ContinueLoop If $BLUE_ARRAY[$i][0] > 0 Then GUICtrlDelete($BLUE_ARRAY[$i][0]) $BLUE_ARRAY[$i][0] = GUICtrlCreateListViewItem($BLUE_ARRAY[$i][1] & "|" & $BLUE_ARRAY[$i][2] & "|" & $BLUE_ARRAY[$i][3] & _ "|" & $BLUE_ARRAY[$i][4] & "|" & $BLUE_ARRAY[$i][5] & "|" & $BLUE_ARRAY[$i][6], $ListView1) Next EndFunc ;==>_Update_ListView Func _Add_Edit_AProduct($AType = "Add") Local $GuiRead Local $i, $No, $productCode, $make, $Deneme, $model, $currentStock, $dataModified If $AType <> "Add" Then $GuiRead = GUICtrlRead($ListView1) If $GuiRead = 0 Then MsgBox(48, "Error!", "Not select item!", 0, $MainForm) SetError(1, 0, 0) EndIf If IsArray($BLUE_ARRAY) = 0 Or $GuiRead = 0 Then Return SetError(2, 0, 0) $BLUE_ARRAY[0][1] = 0 For $i = 1 To $BLUE_ARRAY[0][0] If $GuiRead = $BLUE_ARRAY[$i][0] Then $BLUE_ARRAY[0][1] = $i $No = $BLUE_ARRAY[$i][1] $productCode = $BLUE_ARRAY[$i][2] $make = $BLUE_ARRAY[$i][3] $model = $BLUE_ARRAY[$i][4] $currentStock = $BLUE_ARRAY[$i][5] $dataModified = $BLUE_ARRAY[$i][6] ExitLoop EndIf Next If $BLUE_ARRAY[0][1] = 0 Then Return SetError(3, 0, 0) EndIf GUISetState(@SW_DISABLE, $MainForm) Local $Form2 = GUICreate("Product Inventory", 336, 258, 302, 218) Local $aInput1 = GUICtrlCreateInput($productCode, 16, 24, 193, 21) Local $aInput2 = GUICtrlCreateInput($make, 16, 64, 193, 21) Local $aInput3 = GUICtrlCreateInput($model, 16, 104, 193, 21) Local $aInput4 = GUICtrlCreateInput($currentStock, 16, 144, 193, 21) Local $aInput5 = GUICtrlCreateInput($dataModified, 16, 184, 193, 21) Local $aLabel1 = GUICtrlCreateLabel($i, 16, 1, 30, 16, 0x1000) GUICtrlCreateLabel("Product Code", 224, 24, 69, 17) GUICtrlCreateLabel("Make", 224, 64, 31, 17) GUICtrlCreateLabel("Model", 224, 104, 33, 17) GUICtrlCreateLabel("Current Stock", 224, 144, 69, 17) GUICtrlCreateLabel("Date Modified", 224, 184, 70, 17) Local $cButton3 = GUICtrlCreateButton("Add Product", 120, 216, 91, 25) If $AType <> "Add" Then GUICtrlSetData($cButton3, "Edit Product") GUISetState(@SW_SHOW, $Form2) While 1 $nMsg = GUIGetMsg() Switch $nMsg Case -3 ExitLoop Case $cButton3 $productCode = StringStripWS(GUICtrlRead($aInput1), 3) If $productCode = "" Then MsgBox(48, "Error!", "Enter product Code", 0, $Form2) GUICtrlSetState($aInput1, 256) ContinueCase EndIf $make = StringStripWS(GUICtrlRead($aInput2), 3) If $make = "" Then MsgBox(48, "Error!", "Enter make", 0, $Form2) GUICtrlSetState($make, 256) ContinueCase EndIf $model = StringStripWS(GUICtrlRead($aInput3), 3) If $model = "" Then MsgBox(48, "Error!", "Enter model", 0, $Form2) GUICtrlSetState($model, 256) ContinueCase EndIf $currentStock = StringStripWS(GUICtrlRead($aInput4), 3) If $currentStock = "" Then MsgBox(48, "Error!", "Enter current stock ", 0, $Form2) GUICtrlSetState($currentStock, 256) ContinueCase EndIf $dataModified = StringStripWS(GUICtrlRead($aInput5), 3) ; ------------------------------- If $AType = "Add" Then For $i = 1 To $BLUE_ARRAY[0][0] If $BLUE_ARRAY[$i][1] = $productCode Then GUICtrlSetState($aInput1, 256) MsgBox(0, "Error", "The product is already in the database") ContinueCase EndIf Next $BLUE_ARRAY[0][0] += 1 ReDim $BLUE_ARRAY[$BLUE_ARRAY[0][0] + 1][7] $BLUE_ARRAY[0][1] = $BLUE_ARRAY[0][0] EndIf $BLUE_ARRAY[$BLUE_ARRAY[0][1]][1] = $i $BLUE_ARRAY[$BLUE_ARRAY[0][1]][2] = $productCode $BLUE_ARRAY[$BLUE_ARRAY[0][1]][3] = $make $BLUE_ARRAY[$BLUE_ARRAY[0][1]][4] = $model $BLUE_ARRAY[$BLUE_ARRAY[0][1]][5] = $currentStock $BLUE_ARRAY[$BLUE_ARRAY[0][1]][6] = $dataModified IniWrite($INI_FILE, "" & $i, "Product Code", $productCode) IniWrite($INI_FILE, "" & $i, "Make", $make) IniWrite($INI_FILE, "" & $i, "Model", $model) IniWrite($INI_FILE, "" & $i, "Current Stock", $currentStock) IniWrite($INI_FILE, "" & $i, "Date Modified", $dataModified) ExitLoop EndSwitch WEnd _Update_ListView() GUISwitch($MainForm) GUISetState(@SW_ENABLE, $MainForm) GUIDelete($Form2) EndFunc ;==>_Add_Edit_AProduct Func _DeleteItem() Local $GuiRead = GUICtrlRead($ListView1), $GuiRead2, $SINSTR If $GuiRead <> 0 Then For $i = 1 To $BLUE_ARRAY[0][0] If $GuiRead = $BLUE_ARRAY[$i][0] Then GUICtrlDelete($BLUE_ARRAY[$i][0]) IniDelete("InventoryData.ini", "" & $BLUE_ARRAY[$i][1]) $BLUE_ARRAY[$i][0] = -1 ExitLoop EndIf Next EndIf EndFunc ;==>_DeleteItem [/codebox] [b]InventoryData.ini[/b] [codebox] [1] Product Code=a Make=a Model=a Current Stock=a Date Modified=a [2] Product Code=b Make=b Model=b Current Stock=b Date Modified=b [3] Product Code=c Make=c Model=c Current Stock=c Date Modified=c [4] Product Code=d Make=d Model=d Current Stock=d Date Modified=d [5] Product Code=e Make=e Model=e Current Stock=e Date Modified=e [6] Product Code=f Make=f Model=f Current Stock=f Date Modified=f [7] Product Code=g Make=g Model=g Current Stock=g Date Modified=g [8] Product Code=h Make=h Model=h Current Stock=h Date Modified=h [9] Product Code=ı Make=ı Model=ı Current Stock=ı Date Modified=ı [10] Product Code=i Make=i Model=i Current Stock=i Date Modified=i [/codebox]

arkadaşlar iki sorum daha olacak [b]1.[/b] add kısmına tıkladığımızda resimde kırmızı icerisine almış olduğum yere otomatik sıradaki numarayı nasıl yazdırabilirim.(Yani bir sonraki numarayı) [b]2.[/b] Arkadaşlar sorum şu rakamsal olarak sıralıyorum fakat atıyorum 6 numarayı silince 1 2 3 4 5 7 8 9 10 olarak sıralıyor örnektede 2 numaralı satır. Ben silme işlemini yaptıktan sonra tüm listedeki rakamları tekrar editlemesini ve 1 2 3 4 5 6 7 8 9 olarak yazmasını nasıl sağlarım. (aradaki 6 silinince liste otomatik 9 item dan oluşacak ve sıralamayı tekrar baştan kayıt edecek.) [img]http://g1203.hizliresim.com/v/x/3wy0p.png[/img]

yok denemedim hemen deniyorum. evet düzeldi şimdi sorun array kısmıymış sağol.

sağol gerçekten aradığım buydu. Çok işime yaradı.

yaa o bi örnek login sayfaya önemli değil önemli olan adres bar filan olmadan açmak yani popup örneğiyle.

evet sıra kolonu altında itemleri sıralamak evet biliyorum ama otomatik olarak numara vermek ve ilgili örneğe bir bakarsanızi 1 10 2 3 4 5 bu şekilde devam ediyor sıkıntı 10 numarayı 9 dan sonra değilde 1 den sonra alıyor olması.

Şu alttaki kod güzel ama iexplorer olmasını istememdeki sebep iexplorer içerisine otomatik çalışan eklentiler mevcut o yüzden pop-up olması benim açımdan daha büyük bir avantaj aslında. [codebox] Opt("GUIResizeMode", 768) Global $MY_OIE = ObjCreate("Shell.Explorer.2") Global $MY_GUI = GUICreate("MİNİ EXPLORER", 640, 480, -1, -1, 0x00040000 + 0x00020000 + 0x00010000) $IE_OBJECT = GUICtrlCreateObj($MY_OIE, 0, 0, 640, 456) GUICtrlSetResizing(-1, 102) GUISetState(@SW_SHOW) $MY_OIE.navigate("www.google.com") DllCall("psapi.dll", "int", "EmptyWorkingSet", "long", -1) While 1 $nMsg = GUIGetMsg() Switch $nMsg Case -3 Exit EndSwitch WEnd [/codebox]

yok elimde html kod var ama onları buraya nasıl editleyebilirim bilmiyorum. [codebox] <HEAD> <script LANGUAGE="JavaScript"> function popUp(URL) { day = new Date(); id = day.getTime(); eval("page" + id + " = window.open(URL, '" + id + "', 'toolbar=0,scrollbars=1,location=0,statusbar=0,menubar=0,resizable=1,width=800,height=620,left = 0,top = 0');"); } </script> <meta http-equiv="Content-Type" content="text/html; charset=utf-8" /> <style type="text/css"> body { margin-left: 0px; margin-top: 0px; background-color: #EEF0EF; } </style> <a href="javascript:popUp('http://www.google.com')"><img src="Resimler/SGK.png" width="48" height="48" border="1" /></a> <body oncontextmenu="return false" onselectstart="return false" ondragstart="return false"> [/codebox]

arkadaşlar ben buton1'e tıkladığımda siteyi iexplorer ile açmak istiyorum fakat açılan sayfanın görüntüsü resimde olduğu gibi nasıl yapabilirim. Bir yolu varmı acaba. [img]http://f1203.hizliresim.com/v/v/3vkum.jpg[/img]

@blue_life işin aslı evet vermiş olduğum örnekte listview ekranı olmadığından haklısınız ama ben bunu listview ekranında denedim ve orada liste karıştığından bu mesajı atmıştım elimde o sırada aşağıda gönderdiğim ve yapmaya çalıştığım ve eklemede hata oluşan kod alttadır. Bu kodu editleyen kişide @blue_life'tır ona saygısızlık olmasın o yardımcı olmuştu. fazladan bişiler sormamak için kendim yapmaya çalıştım fakat bu hatayla karşılaştım. Amacım Sıra yazan yere otomatik numaraları vermesi ve o numaralara göre sıralaması. Diğer seçeneklere göre değil yani tek baz alınacak satır sıra satırı olmalı diğer satırlara yazılanlar önemli olmamalı. Tam oldu dedğimde ise sıra karıştı . Valla kusura bakmayın belki baya cahilce sorular olabilir bunlar ama yeni yeni deniyorum ve sizlerin yardımına ihtiyacım var. şimdiden sağolun. [codebox] #include <array.au3> Global $ScriptDir = @ScriptDir If StringRight($ScriptDir, 1) <> "\" Then $ScriptDir &= "\" Global $INI_FILE = $ScriptDir & "InventoryData.ini" Global $BLUE_ARRAY Global $i=1 Global $MainForm = GUICreate("Form1", 623, 442) Global $ListView1 = GUICtrlCreateListView("Sıra|Product Code|Make|Model|Current Stock|Date Modified", 16, 8, 586, 390) GUICtrlSendMsg(-1, 4126, 0, 100) GUICtrlSendMsg(-1, 4126, 1, 100) GUICtrlSendMsg(-1, 4126, 2, 100) GUICtrlSendMsg(-1, 4126, 3, 82) GUICtrlSendMsg(-1, 4126, 4, 80) GUICtrlSendMsg(-1, 4126, 5, 120) _Update_ListView() ;ListView Güncelle Global $Button1 = GUICtrlCreateButton("Add A Product", 16, 408, 91, 25) Global $Button2 = GUICtrlCreateButton("Edit A Product", 120, 408, 91, 25) Global $Button3 = GUICtrlCreateButton("Delete A Product", 224, 408, 107, 25) GUISetState(@SW_SHOW) While 1 $nMsg = GUIGetMsg() Switch $nMsg Case -3 Exit Case $Button1 _Add_Edit_AProduct() Case $Button2 _Add_Edit_AProduct("Edit") Case $Button3 _DeleteItem() EndSwitch WEnd Func _READ_INI() Local $RETURN_ARRAY[25][7] ;GCID,Product Code,Make,Model,Current Stock,Date Modified= $RAD_ISName = IniReadSectionNames($INI_FILE) If Not @error Then For $i = 1 To $RAD_ISName[0] If StringLeft($RAD_ISName[$i], 0) <> "" Then ContinueLoop $RETURN_ARRAY[0][0] += 1 If UBound($RETURN_ARRAY, 1) <= $RETURN_ARRAY[0][0] Then ReDim $RETURN_ARRAY[$RETURN_ARRAY[0][0] + 25][7] $RETURN_ARRAY[$RETURN_ARRAY[0][0]][1] = IniRead($INI_FILE, $RAD_ISName[$i], "Sıra", "") $RETURN_ARRAY[$RETURN_ARRAY[0][0]][2] = StringStripWS(IniRead($INI_FILE, $RAD_ISName[$i], "Product Code", ""), 3) $RETURN_ARRAY[$RETURN_ARRAY[0][0]][3] = IniRead($INI_FILE, $RAD_ISName[$i], "Make", "") $RETURN_ARRAY[$RETURN_ARRAY[0][0]][4] = IniRead($INI_FILE, $RAD_ISName[$i], "Model", "") $RETURN_ARRAY[$RETURN_ARRAY[0][0]][5] = IniRead($INI_FILE, $RAD_ISName[$i], "Current Stock", "") $RETURN_ARRAY[$RETURN_ARRAY[0][0]][6] = IniRead($INI_FILE, $RAD_ISName[$i], "Date Modified", "") Next EndIf If UBound($RETURN_ARRAY, 1) <> ($RETURN_ARRAY[0][0] + 1) Then ReDim $RETURN_ARRAY[$RETURN_ARRAY[0][0] + 1][7] Return $RETURN_ARRAY EndFunc ;==>_READ_INI Func _Update_ListView() If IsArray($BLUE_ARRAY) = 0 Then $BLUE_ARRAY = _READ_INI() ;Read_Ini_File EndIf _ArraySort($BLUE_ARRAY, 0, 1, 0, 1) For $i = 1 To $BLUE_ARRAY[0][0] If $BLUE_ARRAY[$i][0] = -1 Then ContinueLoop If $BLUE_ARRAY[$i][0] > 0 Then GUICtrlDelete($BLUE_ARRAY[$i][0]) $BLUE_ARRAY[$i][0] = GUICtrlCreateListViewItem($BLUE_ARRAY[$i][1] & "|" & $BLUE_ARRAY[$i][2] & "|" & $BLUE_ARRAY[$i][3] & _ "|" & $BLUE_ARRAY[$i][4] & "|" & $BLUE_ARRAY[$i][5] & "|" & $BLUE_ARRAY[$i][6], $ListView1) If Number($BLUE_ARRAY[$i][4]) < 100 Then GUICtrlSetBkColor($BLUE_ARRAY[$i][0], 0xfff333) EndIf If Number($BLUE_ARRAY[$i][4]) < 10 Then GUICtrlSetBkColor($BLUE_ARRAY[$i][0], 0xff0000) EndIf Next EndFunc ;==>_Update_ListView Func _Add_Edit_AProduct($AType = "Add") Local $GuiRead Local $No, $productCode, $make, $Deneme, $model, $currentStock, $dataModified = @MON & "/" & @MDAY & "/" & @YEAR If $AType <> "Add" Then $GuiRead = GUICtrlRead($ListView1) If $GuiRead = 0 Then MsgBox(48, "Error!", "Not select item!", 0, $MainForm) SetError(1, 0, 0) EndIf If IsArray($BLUE_ARRAY) = 0 Or $GuiRead = 0 Then Return SetError(2, 0, 0) $BLUE_ARRAY[0][1] = 0 For $i = 1 To $BLUE_ARRAY[0][0] If $GuiRead = $BLUE_ARRAY[$i][0] Then $BLUE_ARRAY[0][1] = $i $No = $BLUE_ARRAY[$i][1] $productCode = $BLUE_ARRAY[$i][2] $make = $BLUE_ARRAY[$i][3] $model = $BLUE_ARRAY[$i][4] $currentStock = $BLUE_ARRAY[$i][5] $dataModified = $BLUE_ARRAY[$i][6] ExitLoop EndIf Next If $BLUE_ARRAY[0][1] = 0 Then Return SetError(3, 0, 0) EndIf GUISetState(@SW_DISABLE, $MainForm) Local $Form2 = GUICreate("Product Inventory", 336, 258, 302, 218) Local $aInput1 = GUICtrlCreateInput($productCode, 16, 24, 193, 21) Local $aInput2 = GUICtrlCreateInput($make, 16, 64, 193, 21) Local $aInput3 = GUICtrlCreateInput($model, 16, 104, 193, 21) Local $aInput4 = GUICtrlCreateInput($currentStock, 16, 144, 193, 21) Local $aInput5 = GUICtrlCreateInput($dataModified, 16, 184, 193, 21) GUICtrlCreateLabel("Product Code", 224, 24, 69, 17) GUICtrlCreateLabel("Make", 224, 64, 31, 17) GUICtrlCreateLabel("Model", 224, 104, 33, 17) GUICtrlCreateLabel("Current Stock", 224, 144, 69, 17) GUICtrlCreateLabel("Date Modified", 224, 184, 70, 17) Local $cButton3 = GUICtrlCreateButton("Add Product", 120, 216, 91, 25) If $AType <> "Add" Then GUICtrlSetData($cButton3, "Edit Product") GUISetState(@SW_SHOW, $Form2) While 1 $nMsg = GUIGetMsg() Switch $nMsg Case -3 ExitLoop Case $cButton3 $productCode = StringStripWS(GUICtrlRead($aInput1), 3) If $productCode = "" Then MsgBox(48, "Error!", "Enter product Code", 0, $Form2) GUICtrlSetState($aInput1, 256) ContinueCase EndIf $make = StringStripWS(GUICtrlRead($aInput2), 3) If $make = "" Then MsgBox(48, "Error!", "Enter make", 0, $Form2) GUICtrlSetState($make, 256) ContinueCase EndIf $model = StringStripWS(GUICtrlRead($aInput3), 3) If $model = "" Then MsgBox(48, "Error!", "Enter model", 0, $Form2) GUICtrlSetState($model, 256) ContinueCase EndIf $currentStock = StringStripWS(GUICtrlRead($aInput4), 3) If $currentStock = "" Then MsgBox(48, "Error!", "Enter current stock ", 0, $Form2) GUICtrlSetState($currentStock, 256) ContinueCase EndIf $dataModified = StringStripWS(GUICtrlRead($aInput5), 3) ; ------------------------------- If $AType = "Add" Then For $i = 1 To $BLUE_ARRAY[0][0] If $BLUE_ARRAY[$i][1] = $productCode Then GUICtrlSetState($aInput1, 256) MsgBox(0, "Error", "The product is already in the database") ContinueCase EndIf Next $BLUE_ARRAY[0][0] += 1 ReDim $BLUE_ARRAY[$BLUE_ARRAY[0][0] + 1][7] $BLUE_ARRAY[0][1] = $BLUE_ARRAY[0][0] EndIf $BLUE_ARRAY[$BLUE_ARRAY[0][1]][1] = $i $BLUE_ARRAY[$BLUE_ARRAY[0][1]][2] = $productCode $BLUE_ARRAY[$BLUE_ARRAY[0][1]][3] = $make $BLUE_ARRAY[$BLUE_ARRAY[0][1]][4] = $model $BLUE_ARRAY[$BLUE_ARRAY[0][1]][5] = $currentStock $BLUE_ARRAY[$BLUE_ARRAY[0][1]][6] = $dataModified IniWrite($INI_FILE, "" & $productCode, "Sıra", $i) $i += 1 IniWrite($INI_FILE, "" & $productCode, "Product Code", $productCode) IniWrite($INI_FILE, "" & $productCode, "Make", $make) IniWrite($INI_FILE, "" & $productCode, "Model", $model) IniWrite($INI_FILE, "" & $productCode, "Current Stock", $currentStock) IniWrite($INI_FILE, "" & $productCode, "Date Modified", $dataModified) ExitLoop EndSwitch WEnd _Update_ListView() GUISwitch($MainForm) GUISetState(@SW_ENABLE, $MainForm) GUIDelete($Form2) EndFunc ;==>_Add_Edit_AProduct Func _DeleteItem() Local $GuiRead = GUICtrlRead($ListView1), $GuiRead2, $SINSTR If $GuiRead <> 0 Then For $i = 1 To $BLUE_ARRAY[0][0] If $GuiRead = $BLUE_ARRAY[$i][0] Then GUICtrlDelete($BLUE_ARRAY[$i][0]) IniDelete("InventoryData.ini", "" & $BLUE_ARRAY[$i][1]) $BLUE_ARRAY[$i][0] = -1 ExitLoop EndIf Next EndIf EndFunc ;==>_DeleteItem [/codebox]

Arkadaşlar ben bu listelemede anlamadığım bişi var. tamam 1 den başlıyor sıralama fakat 10 ve 11 e gelince sıra karışıyor 1 10 11 2 olarak gözüküyor bunu nasıl düzenli sıra yapabilirim. [codebox]Global $i = 1 Global $Bl_Value Global $Form1 = GUICreate("Form1", 633, 449) Global $Input1 = GUICtrlCreateInput("Selam Millet", 8, 160, 241, 21) Global $Button1 = GUICtrlCreateButton("Button1", 8, 192, 243, 25) GUISetState(@SW_SHOW) While 1 $nMsg = GUIGetMsg() Switch $nMsg Case -3 Exit Case $Button1 MsgBox(0, "başlık", $i & " " & GUICtrlRead($Input1)) $i += 1 EndSwitch WEnd[/codebox]

@blue_life Valla çok teşekkür ederim yardımlarından dolayı evet gerçekten mükemmel olmuş elinize sağlık. [warning][b][color=#FF0000]Forumda açılan konulara teşekkür etmek için teşekkür butonunu kullanınız! [topic=872]Lütfen Forum Kurallarını Okuyunuz.[/topic] Anlayışınız için teşekkür ederiz Tnc-Team[/color][/b][/warning]

blue_life ilginize alakanıza çok teşekkür ederim. Yalnız bişşi daha sormak istiyorum. Bu edit bölümünüde edit tuşuna basıldığında listview ekranındaki line dan biri seçildiğinde add butonundaki gibi pencere açılıp oraya bilgilerin çağırılmasını nasıl yapabiliriz. İlginize tekrar çok teşekkür ederim. İyi akşamlar.

Benim aşağıda vermiş olduğum açıkcası bu sitede gördüğüm kod üzerine bir sorum olacaktı. Sil butonunun list wiev ekranından seçilerek silinmesini yani sil butonuna bastığımızda açılan menüden item seçilerek değilde listeden line seçilerek silinmesini istiyorum acaba bunu nasıl yapabilirim. Eğer ilgilenirseniz sevinirim iyi günler. [codebox] #include <GUIConstantsEx.au3> #include <ListViewConstants.au3> #include <WindowsConstants.au3> #include <ButtonConstants.au3> #include <StaticConstants.au3> #include <array.au3> #include <ComboConstants.au3> Global $productCode, $make, $model, $currentStock, $dataModified, $productToEdit $Form1 = GUICreate("Form1", 623, 442, 192, 124) $ListView1 = GUICtrlCreateDummy() $Button1 = GUICtrlCreateButton("Add A Product", 16, 408, 91, 25) $Button2 = GUICtrlCreateButton("Edit A Product", 120, 408, 91, 25) $Button3 = GUICtrlCreateButton("Delete A Product", 224, 408, 107, 25) GUISetState(@SW_SHOW) _RefreshData() While 1 $nMsg = GUIGetMsg() Switch $nMsg Case $GUI_EVENT_CLOSE Exit Case $Button1 _AddAProduct() Case $Button2 _EditProduct() Case $Button3 _DeleteItem() EndSwitch WEnd Func _AddAProduct() $Form2 = GUICreate("Product Inventory", 336, 258, 302, 218) $aInput1 = GUICtrlCreateInput("", 16, 24, 193, 21) $aInput2 = GUICtrlCreateInput("", 16, 64, 193, 21) $aInput3 = GUICtrlCreateInput("", 16, 104, 193, 21) $aInput4 = GUICtrlCreateInput("", 16, 144, 193, 21) $aInput5 = GUICtrlCreateInput(@MON & "/" & @MDAY & "/" & @YEAR, 16, 184, 193, 21) $Label1 = GUICtrlCreateLabel("Product Code", 224, 24, 69, 17) $Label2 = GUICtrlCreateLabel("Make", 224, 64, 31, 17) $Label3 = GUICtrlCreateLabel("Model", 224, 104, 33, 17) $Label4 = GUICtrlCreateLabel("Current Stock", 224, 144, 69, 17) $Label5 = GUICtrlCreateLabel("Date Modified", 224, 184, 70, 17) $cButton3 = GUICtrlCreateButton("Add Product", 120, 216, 91, 25) GUISetState(@SW_SHOW) While 1 $nMsg = GUIGetMsg() Switch $nMsg Case $GUI_EVENT_CLOSE GUIDelete($Form2) ExitLoop Case $cButton3 $productCode = GUICtrlRead($aInput1) $make = GUICtrlRead($aInput2) $model = GUICtrlRead($aInput3) $currentStock = GUICtrlRead($aInput4) $dataModified = GUICtrlRead($aInput5) $errorCheck = IniRead("InventoryData.ini", $productCode, "Product Code", "NotInDatabase") If $errorCheck = "NotInDatabase" Then IniWrite("InventoryData.ini", $productCode, "Product Code", $productCode) IniWrite("InventoryData.ini", $productCode, "Make", $make) IniWrite("InventoryData.ini", $productCode, "Model", $model) IniWrite("InventoryData.ini", $productCode, "Current Stock", $currentStock) IniWrite("InventoryData.ini", $productCode, "Date Modified", $dataModified) Else MsgBox(0, "Error", "The product is already in the database") EndIf GUIDelete($Form2) _RefreshData() ExitLoop EndSwitch WEnd EndFunc ;==>_AddAProduct Func _RefreshData() GUISwitch($Form1) GUICtrlDelete($ListView1) $ListView1 = GUICtrlCreateListView("Product Code|Make|Model|Current Stock|Date Modified", 16, 8, 586, 390) GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 0, 100) GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 1, 150) GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 2, 150) GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 3, 85) GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 4, 100) $sectionNames = IniReadSectionNames("InventoryData.ini") If @error Then Dim $sectionNames[2] $sectionNames[0] = 1 $sectionNames[1] = "NotFound" EndIf _ArraySort($sectionNames, 0, 1) For $i = 1 To $sectionNames[0] Step 1 $productCode = IniRead("InventoryData.ini", $sectionNames[$i], "Product Code", "") $make = IniRead("InventoryData.ini", $sectionNames[$i], "Make", "") $model = IniRead("InventoryData.ini", $sectionNames[$i], "Model", "") $currentStock = IniRead("InventoryData.ini", $sectionNames[$i], "Current Stock", "") $dataModified = IniRead("InventoryData.ini", $sectionNames[$i], "Date Modified", "") GUICtrlCreateListViewItem($productCode & "|" & $make & "|" & $model & "|" & $currentStock & "|" & $dataModified, $ListView1) If Number($currentStock) < 100 Then GUICtrlSetBkColor(-1, 0xfff333) EndIf If Number($currentStock) < 10 Then GUICtrlSetBkColor(-1, 0xff0000) EndIf Next EndFunc ;==>_RefreshData Func _DeleteItem() $Form3 = GUICreate("Delete A Product", 303, 169, 302, 218) $sectionNames = IniReadSectionNames("InventoryData.ini") If @error Then ;MsgBox(0, "", "Error") Dim $sectionNames[2] $sectionNames[0] = 1 $sectionNames[1] = "NotFound" EndIf _ArraySort($sectionNames, 0, 1) $delCombo = GUICtrlCreateCombo("", 24, 40, 241, 25, BitOR($CBS_DROPDOWNLIST,$CBS_AUTOHSCROLL)) $delLabel1 = GUICtrlCreateLabel("Select an item to delete", 24, 16, 115, 17) $delLabel2 = GUICtrlCreateLabel("Warning: this cannot be undone", 24, 72, 186, 17) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") GUICtrlSetColor(-1, 0xFF0000) $delButton1 = GUICtrlCreateButton("Delete Item", 168, 112, 91, 25) GUISetState(@SW_SHOW) For $i = 1 To $sectionNames[0] Step 1 GUICtrlSetData($delCombo, $sectionNames[$i]) Next While 1 $nMsg = GUIGetMsg() Switch $nMsg Case $GUI_EVENT_CLOSE GUIDelete($Form3) ExitLoop Case $delButton1 $delete = GUICtrlRead($delCombo) IniDelete("InventoryData.ini", $delete) GUIDelete($Form3) _RefreshData() ExitLoop EndSwitch WEnd EndFunc ;==>_DeleteItem Func _EditProduct() $sectionNames = IniReadSectionNames("InventoryData.ini") If @error Then Dim $sectionNames[2] $sectionNames[0] = 1 $sectionNames[1] = "NotFound" EndIf _ArraySort($sectionNames, 0, 1) $Form4 = GUICreate("Edit a product", 303, 169, 302, 218) $delCombo = GUICtrlCreateCombo("", 24, 40, 241, 25, BitOR($CBS_DROPDOWNLIST,$CBS_AUTOHSCROLL)) $delLabel1 = GUICtrlCreateLabel("Select an item to edit", 24, 16, 115, 17) $delButton1 = GUICtrlCreateButton("Edit Item", 168, 112, 91, 25) GUISetState(@SW_SHOW) For $i = 1 To $sectionNames[0] Step 1 GUICtrlSetData($delCombo, $sectionNames[$i]) Next While 1 $nMsg = GUIGetMsg() Switch $nMsg Case $GUI_EVENT_CLOSE GUIDelete($Form4) ExitLoop Case $delButton1 $productToEdit = GUICtrlRead($delCombo) If $productToEdit = "" Then GUIDelete($Form4) ExitLoop Else GUIDelete($Form4) _EditProductForm() ExitLoop EndIf EndSwitch WEnd EndFunc ;==>_EditProduct Func _EditProductForm() $make = IniRead("InventoryData.ini", $productToEdit, "Make", "") $model = IniRead("InventoryData.ini", $productToEdit, "Model", "") $currentStock = IniRead("InventoryData.ini", $productToEdit, "Current Stock", "") $dataModified = IniRead("InventoryData.ini", $productToEdit, "Date Modified", "") $Form5 = GUICreate("Form1", 336, 258, 302, 218) $cInput1 = GUICtrlCreateInput($productToEdit, 16, 24, 193, 21) $cInput2 = GUICtrlCreateInput($make, 16, 64, 193, 21) $cInput3 = GUICtrlCreateInput($model, 16, 104, 193, 21) $cInput4 = GUICtrlCreateInput($currentStock, 16, 144, 193, 21) $cInput5 = GUICtrlCreateInput(@MON & "/" & @MDAY & "/" & @YEAR, 16, 184, 193, 21) $Label1 = GUICtrlCreateLabel("Product Code", 224, 24, 69, 17) $Label2 = GUICtrlCreateLabel("Make", 224, 64, 31, 17) $Label3 = GUICtrlCreateLabel("Model", 224, 104, 33, 17) $Label4 = GUICtrlCreateLabel("Current Stock", 224, 144, 69, 17) $Label5 = GUICtrlCreateLabel("Date Modified", 224, 184, 70, 17) $Button3 = GUICtrlCreateButton("Edit Product", 120, 216, 91, 25) GUISetState(@SW_SHOW) #EndRegion ### END Koda GUI section ### While 1 $nMsg = GUIGetMsg() Switch $nMsg Case $GUI_EVENT_CLOSE GUIDelete($Form5) ExitLoop Case $Button3 $productCode = GUICtrlRead($cInput1) $make = GUICtrlRead($cInput2) $model = GUICtrlRead($cInput3) $currentStock = GUICtrlRead($cInput4) $dataModified = GUICtrlRead($cInput5) IniWrite("InventoryData.ini", $productCode, "Product Code", $productCode) IniWrite("InventoryData.ini", $productCode, "Make", $make) IniWrite("InventoryData.ini", $productCode, "Model", $model) IniWrite("InventoryData.ini", $productCode, "Current Stock", $currentStock) IniWrite("InventoryData.ini", $productCode, "Date Modified", $dataModified) GUIDelete($Form5) _RefreshData() ExitLoop EndSwitch WEnd EndFunc ;==>_EditProductForm [/codebox]

İyi akşamlar bu yöntemi deniyorum fakat VMware ile kurmaya kalktığımda image not found uyarısı alıyorum ve bir türlü bu problemi çözemedim eğer bana yardımcı olursanız sevinirim.