Jump to content

Leaderboard


Popular Content

Showing most liked content since 06/21/2018 in all areas

  1. 2 points
    É porque na linha 89 você adiciona um valor sequencial sempre que é adicionado um novo elemento na tabela. " $id= $id + 1" e sempre que você adiciona um novo item, ele segue a referencia da variável $id, até aí tudo bem, mas na hora de deletar um item da tabela você simplesmente exclui um item selecionado sem remover o valor da variável e mesmo removendo o valor da variável, o item selecionado pode ser que não seja sequencial como está na variavel $id. Exemplo (linha 89): você adiciona 1 item novo $id=1 $id=2 $id=3 $id=4 Aí você resolve deletar o item 2, a variavel $id continuará somando o valor 1 . Ao invés de usar a variável $id eu coloquei o _GUICtrlListView_GetItemCount para ler quantas linhas tinham na ListView e adicionar +1 de acordo com a quantidade, então se você deletar uma linha, a função que eu citei ali vai ter um valor exato de itens na lista. #include <ButtonConstants.au3> #include <EditConstants.au3> #include <GUIConstantsEx.au3> #include <GUIListBox.au3> #include <StaticConstants.au3> #include <WindowsConstants.au3> #include <GUIConstantsEx.au3> #include <GuiImageList.au3> #include <GuiListView.au3> #include <GUIConstantsEx.au3> #include <GuiListView.au3> #include <MsgBoxConstants.au3> #include <WinAPI.au3> #include <StringConstants.au3> #include <Array.au3> #include <GuiListBox.au3> #Region ### START Koda GUI section ### Form= $Form1 = GUICreate("Form1", 612, 480, 192, 154) $MenuItem1 = GUICtrlCreateMenu("&Arquivo") $MenuItem2 = GUICtrlCreateMenuItem("Salvar Ctrl+S", $MenuItem1, $SS_CENTER) $MenuItem4 = GUICtrlCreateMenuItem("Carregar Ctrl+O", $MenuItem1, $SS_CENTER) $MenuItem3 = GUICtrlCreateMenuItem("Salvar Como Shitft+Ctrl+S", $MenuItem1, $SS_CENTER) $Group1 = GUICtrlCreateGroup("", 21, 8, 569, 97, $SS_CENTER) $Input1 = GUICtrlCreateInput("ID COR", 122, 32, 97, 21, $SS_CENTER) $Input2 = GUICtrlCreateInput("REGIÃO", 138, 64, 249, 21, $SS_CENTER) $Input3 = GUICtrlCreateInput("Label", 264, 30, 121, 21, $SS_CENTER) $Label1 = GUICtrlCreateLabel("Label", 232, 32, 30, 17, $SS_CENTER) $Button1 = GUICtrlCreateButton("Capturar Cor", 42, 30, 75, 25, $SS_CENTER) $Button2 = GUICtrlCreateButton("Capturar Região", 42, 62, 91, 25, $SS_CENTER) $Button3 = GUICtrlCreateButton("ADD", 442, 24, 113, 33) $Button5 = GUICtrlCreateButton("Delet", 442, 64, 113, 33) $Group2 = GUICtrlCreateGroup("Editar ID selecionado", 8, 384, 601, 57, $SS_CENTER) $Input7 = GUICtrlCreateInput("ID", 10, 402, 40,21, $SS_CENTER) $Input4 = GUICtrlCreateInput("COR", 51, 402, 121, 21, $SS_CENTER) $Input5 = GUICtrlCreateInput("REGIÃO", 173, 402, 249, 21, $SS_CENTER) $Input6 = GUICtrlCreateInput("LABEL", 423, 402, 121, 21, $SS_CENTER) $Button4 = GUICtrlCreateButton("\/", 544, 400, 30, 25, $SS_CENTER) $Button6 = GUICtrlCreateButton("/\", 574, 400, 30, 25, $SS_CENTER) ; Add column ;~ Global $id = Int(0) $List1 = GUICtrlCreateListView("",5, 120, 601, 253, $SS_CENTER) _GUICtrlListView_AddColumn($List1, "ID",40) _GUICtrlListView_AddColumn($List1, "COR",100) _GUICtrlListView_AddColumn($List1, "COORDENADA",305) _GUICtrlListView_AddColumn($List1, "LABEL",150) GUISetState(@SW_SHOW) #EndRegion ### END Koda GUI section ### While 1 $nMsg = GUIGetMsg() Switch $nMsg Case $GUI_EVENT_CLOSE Exit Case $MenuItem2 MsgBox($MB_SYSTEMMODAL, "ctrl + s", "Nothing Here",1) Case $MenuItem3 MsgBox($MB_SYSTEMMODAL, "shift+ctrl s", "Nothing Here",1) Case $MenuItem4 MsgBox($MB_SYSTEMMODAL, "ctrl + o", "Nothing Here",1) Case $Button1 MsgBox($MB_SYSTEMMODAL, "Capturar cor", "Aperte espaço para capturar a cor") GUICtrlSetData($Input1,MouseColor()) Case $Button2 MsgBox($MB_SYSTEMMODAL, "capturar região", "Aperte espaço para capturar a posição inicial") local $mouse = MouseGetPos() $x_init = $mouse[0] $y_init = $mouse[1] MsgBox($MB_SYSTEMMODAL, "capturar região", "Aperte espaço para capturar a posição final") local $mouse = MouseGetPos() $x_end = $mouse[0] $y_end = $mouse[1] GUICtrlSetData($Input2,$x_init&','&$y_init&' ; '&$x_end&','&$y_end) Case $Button3 _GUICtrlListView_AddItem($List1, _GUICtrlListView_GetItemCount ( $List1 )+1, 1) ; id _GUICtrlListView_AddSubItem($List1, _GUICtrlListView_GetItemCount ( $List1 )-1, GUICtrlRead($Input1), 1, 1) ;cor _GUICtrlListView_AddSubItem($List1, _GUICtrlListView_GetItemCount ( $List1 )-1, GUICtrlRead($Input2), 2, 1) ;coordenada _GUICtrlListView_AddSubItem($List1, _GUICtrlListView_GetItemCount ( $List1 )-1, GUICtrlRead($Input3), 3, 1) ;label ;~ $id= $id + 1 Case $Button4 $Item = _GUICtrlListView_GetSelectedIndices($List1) $Sid = _GUICtrlListView_GetItem($List1, Number($Item),0) $Scor = _GUICtrlListView_GetItem($List1, Number($Item),1) $Scord = _GUICtrlListView_GetItem($List1, Number($Item),2) $Slabel = _GUICtrlListView_GetItem($List1, Number($Item),3) ; get info GUICtrlSetData($Input7,$Sid[3]) GUICtrlSetData($Input4,$Scor[3]) GUICtrlSetData($Input5,$Scord[3]) GUICtrlSetData($Input6,$Slabel[3]) Case $Button5 _GUICtrlListView_DeleteItemsSelected($List1) Case $Button6 ; give back inf if GUICtrlRead($Input7) <> "ID" Then _GUICtrlListView_SetItem($List1, GUICtrlRead($Input4), GUICtrlRead($Input7),1) ;cor _GUICtrlListView_SetItem($List1, GUICtrlRead($Input5), GUICtrlRead($Input7),2) ;coordenada _GUICtrlListView_SetItem($List1, GUICtrlRead($Input6), GUICtrlRead($Input7),3) ;coordenada EndIf EndSwitch WEnd Func MouseColor() local $mouse = MouseGetPos() Return Hex(PixelGetColor($mouse[0],$mouse[1]), 6) EndFunc
  2. 1 point
    depois do -RD ou -L segundo a mensagem que aparece você precisa indicar o arquivo "log" ex: UsbDriveInfo.exe -L:resultado.txt UsbDriveInfo.exe -RD:log.log
  3. 1 point
    Olá Bllee. Local $sTexto = "" For $nConta = 1 to 5 For $nLetra = Asc("A") to Asc("Z") ConsoleWrite($sTexto & Chr($nLetra) & @CRLF) Next $sTexto &= Chr(Asc("@") + $nConta) Next
  4. 1 point
    ; mutleey ; 14/07/2018 Local $chars[6] SplashTextOn("msg", "...", 200, 50, -1, -1, 1, "", 16) For $ii = 0 To 5 For $jj = 97 To 122 ; a~z $chars[$ii] = Chr($jj) ControlSetText("msg", "", "Static1", $chars[5] & $chars[4] & $chars[3] & $chars[2] & $chars[1] & $chars[0]) Sleep(150) ; pausa Next Next SplashOff()
  5. 1 point
    Opa Belini. Aqui funcionou perfeitamente, Win 7 64. Já testou com #RequireAdmin?
  6. 1 point
    Transformando em binário e lendo com _GDIPlus_BitmapCreateFromMemory ou usando o fileInstall e jogando para o diretório temporário "@temp"
  7. 1 point
    Aquele exemplo que eu te passei já tem isso tudo, é só você usar label ao invés de botão.
  8. 1 point
    ListBox tem pouca opção e neste caso vc terá que criar um ListView. #include <ButtonConstants.au3> #include <GUIConstantsEx.au3> #include <GUIListBox.au3> #include <WindowsConstants.au3> #include <StaticConstants.au3> #include <GuiListView.au3> #include <File.au3> Global $diretorio = "", $foto = 1, $FileList, $max = 0, $item_atual #region ### START Koda GUI section ### Form=C:\Users\michel\Desktop\menu programadores\Source\Form1.kxf $Form1 = GUICreate("Boot Ecu", 914, 636, 180, 131) $List = GUICtrlCreateListView("LISTA", 776, 40, 137, 552, BitOR($LVS_NOCOLUMNHEADER, $LVS_SINGLESEL)) _GUICtrlListView_SetColumnWidth($List, 0, 133) $Pic1 = GUICtrlCreatePic("", 0, 40, 761, 561, $SS_CENTERIMAGE) $Dir = GUICtrlCreateButton("Diretorio", 776, 0, 137, 41) GUICtrlSetFont(-1, 20, 400, 0, "MS Sans Serif") GUICtrlSetBkColor(-1, 0xFFFF00) $Up = GUICtrlCreateButton("Up", 776, 592, 73, 41) GUICtrlSetFont(-1, 20, 400, 0, "MS Sans Serif") $down = GUICtrlCreateButton("Dw", 848, 592, 65, 41) GUICtrlSetFont(-1, 20, 400, 0, "MS Sans Serif") $Button2 = GUICtrlCreateButton("", 760, 40, 17, 561) GUICtrlSetState(-1, $GUI_DISABLE) $bar = GUICtrlCreateButton("Sem imagens", 0, 0, 777, 41) GUICtrlSetFont(-1, 20, 400, 0, "MS Sans Serif") GUICtrlSetState(-1, $GUI_DISABLE) $Button4 = GUICtrlCreateButton("Total de Imagens = 0", 0, 600, 777, 30) GUICtrlSetFont(-1, 20, 400, 0, "MS Sans Serif") GUICtrlSetState(-1, $GUI_DISABLE) GUISetState(@SW_SHOW) #endregion ### END Koda GUI section ### ;Define_pasta("Diretório onde estão suas fotos"); ==> Habilite para não precisar usar o botão diretório While 1 $nMsg = GUIGetMsg() Switch $nMsg Case $down If $max > 0 Then $foto += 1 Troca_imagem($foto) If $foto >= $max Then $foto = 1 EndIf Case $Up If $max > 0 Then $foto -= 1 Troca_imagem($foto) If $foto <= 0 Then $foto = $max EndIf Case $Dir $pasta = FileSelectFolder("escolha uma pasta", "") Define_pasta($pasta) Case $GUI_EVENT_CLOSE Exit EndSwitch $item_atual = _GUICtrlListView_GetSelectedIndices($List) If $item_atual <> ($foto) and $max > 0 Then $foto = $item_atual GUICtrlSetImage($Pic1, $diretorio & "\" & $FileList[$item_atual + 1]) ControlFocus("", "", $List) EndIf WEnd Func Define_pasta($pasta = "") $diretorio = $pasta $FileList = _FileListToArray($diretorio, "*.JPG", 1) If Not @error Then $max = $FileList[0] For $i = 1 To $max _GUICtrlListView_AddItem($List, $FileList[$i], $i - 1) Next GUICtrlSetData($Button4, "Total de Imagens = " & $max) GUICtrlSetData($bar, "Imagem Atual: " & $diretorio & "\" & $FileList[1]) GUICtrlSetImage($Pic1, $diretorio & "\" & $FileList[1]) Else $max = 0 EndIf _GUICtrlListView_SetItemSelected($List, 0) ControlFocus("", "", $List) EndFunc ;==>Define_pasta Func Troca_imagem($imagem = '') If $imagem = $max Then $imagem = 0 If $imagem = -1 Then $imagem = $max - 1 GUICtrlSetImage($Pic1, $diretorio & "\" & $FileList[$imagem + 1]) GUICtrlSetData($bar, "Imagem Atual: " & $diretorio & "\" & $FileList[$imagem]) _GUICtrlListView_SetItemSelected($List, $imagem) ControlFocus("", "", $List) EndFunc ;==>Troca_imagem
  9. 1 point
    @michel almeida não entendi muito bem como quer fazer o visualizador funcionar mas fiz algumas mudanças que depois vc pode alterar para o seu propósito! #include <ButtonConstants.au3> #include <GUIConstantsEx.au3> #include <GUIListBox.au3> #include <WindowsConstants.au3> #include <StaticConstants.au3> #include <File.au3> Global $diretorio = "", $foto = 1, $FileList, $max = 0 #region ### START Koda GUI section ### Form=C:\Users\michel\Desktop\menu programadores\Source\Form1.kxf $Form1 = GUICreate("Boot Ecu", 914, 636, 180, 131) $List = GUICtrlCreateList("", 776, 40, 137, 552) $Pic1 = GUICtrlCreatePic("", 0, 40, 761, 561, $SS_CENTERIMAGE) $Dir = GUICtrlCreateButton("Diretorio", 776, 0, 137, 41) GUICtrlSetFont(-1, 20, 400, 0, "MS Sans Serif") GUICtrlSetBkColor(-1, 0xFFFF00) $Up = GUICtrlCreateButton("Up", 776, 592, 73, 41) GUICtrlSetFont(-1, 20, 400, 0, "MS Sans Serif") $down = GUICtrlCreateButton("Dw", 848, 592, 65, 41) GUICtrlSetFont(-1, 20, 400, 0, "MS Sans Serif") $Button2 = GUICtrlCreateButton("", 760, 40, 17, 561) GUICtrlSetState(-1, $GUI_DISABLE) $bar = GUICtrlCreateButton("Sem imagens", 0, 0, 777, 41) GUICtrlSetFont(-1, 20, 400, 0, "MS Sans Serif") GUICtrlSetState(-1, $GUI_DISABLE) $Button4 = GUICtrlCreateButton("Total de Imagens = 0", 0, 600, 777, 30) GUICtrlSetFont(-1, 20, 400, 0, "MS Sans Serif") GUICtrlSetState(-1, $GUI_DISABLE) GUISetState(@SW_SHOW) #endregion ### END Koda GUI section ### While 1 $nMsg = GUIGetMsg() Switch $nMsg Case $down If $max > 0 Then $foto += 1 If $foto >= $max Then $foto = 1 gui($foto) EndIf Case $Up If $max > 0 Then $foto -= 1 If $foto <= 0 Then $foto = $max gui($foto) EndIf Case $Dir $diretorio = FileSelectFolder("escolha uma pasta", "") Local $FileList = _FileListToArray($diretorio, "*.JPG", 1) If Not @error Then $max = $FileList[0] For $i = 1 To $max Step 1 GUICtrlSetData($List, $FileList[$i]) Next GUICtrlSetData($Button4, "Total de Imagens = " & $max) GUICtrlSetData($bar, "Imagem Atual: " & $diretorio & "\" & $FileList[1]) GUICtrlSetImage($Pic1, $diretorio & "\" & $FileList[1]) Else $max = 0 EndIf Case $GUI_EVENT_CLOSE Exit EndSwitch WEnd Func gui($foto = '') GUICtrlSetImage($Pic1, $diretorio & "\" & $FileList[$foto]) GUICtrlSetData($bar, "Imagem Atual: " & $diretorio & "\" & $FileList[$foto]) EndFunc ;==>gui
  10. 1 point
    se for x64 RegWrite("HKLM64\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon", "Shell", "REG_SZ", "programa.exe") x86 RegWrite("HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon", "Shell", "REG_SZ", "programa.exe")
  11. 1 point
    A lista pode ser criada com uma Array, você poderá criar quantas listas quiser e na imagem abaixo em "Informações" na linha Pasta Selecionada você pode selecionar as listas apertando F6 e F7. Eu detalhei as variáveis principais e dividi cada sistema em uma include diferente. Criei também um SubMenu que cria uma listagem em cima da atual, para abrir o subMenu é só pressionar F4 ou F8. Programei a lista principal para salvar o item selecionado caso você troque de item Ex: Seleciona o item 100 da "lista 1" e aperta F7 para ir na "lista 2", quando você apertar F6 para voltar na "lista 1" ela estará no item 100. Cada lista salva sua posição selecionada. - Preciso de dicas para interface gráfica (Sdl é bom, mas não achei nenhuma UDF eficaz que coloque Textos e Imagens na janela, se alguém souber). - Ao abrir o programa você terá de selecionar pelo menos uma pasta para criar uma lista. - Eu deixei o projeto aberto no GitHub para colaboradores. https://github.com/pedrowarlock/FrontEnd
×