Příspěvky

1

Vývoj / Re:Detekce Category v NUnit testu

« kdy: 25. 01. 2022, 16:29:46 »

Ono totiž totok:

Kód: [Vybrat]

        [Test]
        [TestCategory(Category.A)]
        [TestCategory(Category.B)]
        public void Test1()
        {
            var cats = TestContext.CurrentContext.Test.Properties["Category"];

            foreach (var cat in cats)
            {
                TestContext.Out.WriteLine(cat.ToString());
            }
        }

vypíše A i B, přestože dotnet test byl spuštěn pouze pro B.

2

Vývoj / Detekce Category v NUnit testu

« kdy: 25. 01. 2022, 15:46:00 »

Ahojte,

mám testy psané ve vs2019 s pomocí frameworku NUnit.

Každý test má několik Test kategorií, na základě nichž se spustí.

Ta informace, která kategorie umožnila běh testu abc by se mi moc hodila.

Máte s tím pls někdo zkušenost ?

Dík

3

Vývoj / Selenium a XPath pro zjištění počtu řádků/sloupců v tabulce

« kdy: 22. 10. 2021, 13:59:09 »

Dobrý den,

prosím vás, má to řešení? Table element to v tomto případě v atributech nemá.

Dík

4

Vývoj / Re:Jak správně na Win32 API SetParent (Window)

« kdy: 21. 05. 2021, 11:10:15 »

Přestože okno (child zmizí), nezasekne se to, pokračuje dál v exekuci a když mám tedy například poté:

Kód: [Vybrat]

MsgBox GetWindowLong(Me.hWnd, GWL_HWNDPARENT)

vypíše to správně nového parenta.

Jen GetParent pak vrací null, krom toho, že child je neviditelný, není to zpropagované do hierarchie.

5

Vývoj / Jak správně na Win32 API SetParent (Window)

« kdy: 21. 05. 2021, 09:53:48 »

Dobrý den,

v již existující aplikaci, ke které jsem přišel, chybí vazby child a jeho parent. To nedělá dobrotu když chci getnout top window.

Udělal jsem si vb6 projekt (existující aplikace je vb6, nikoliv však MDI..), kde jsem nastavení vazby chtěl odladit.

Šel jsem podle tohoto návodu:
https://docs.microsoft.com/en-us/windows/win32/api/winuser/nf-winuser-setparent

V okně(Formu) po spuštění mám tlačítko s obsluhou:

Kód: [Vybrat]

Private Sub Command2_Click()

    Dim dlg As Form
    
    Set dlg = New Form2
    
    Dim result As Long
    result = GetWindowLong(hWnd, GWL_STYLE)
    result = result - (result And WS_CLIPCHILDREN)
    SetWindowLong hWnd, GWL_STYLE, result
   
    dlg.SetParentWindow Me.hWnd
    
    dlg.Show vbModal
    
    Set dlg = Nothing

End Sub

SetParentWindow ve Form2 mam potom:

Kód: [Vybrat]

Public Sub SetParentWindow(ByVal hWndParent As Long)

    Dim result As Long
    
    result = GetWindowLong(hWnd, GWL_STYLE)
    result = result - (result And WS_POPUP)
    result = result Or WS_CHILD
    result = SetWindowLong(hWnd, GWL_STYLE, result)
    
    result = SetParent(hWnd, hWndParent)
    
    result = SendMessage(hWndParent, WM_CHANGEUISTATE, (UISF_ACTIVE * 65536) + UIS_SET, 0)
    
End Sub

Bohužel na řádce:

Kód: [Vybrat]

result = SetParent(hWnd, hWndParent)

Form2 zmizí nevím kam.

Prosím poradíte mi někdo, co by mohlo být špatně?

Díky

6

Vývoj / Re:Kliknutí na buňku ListView pomocí Send/PostMessage

« kdy: 04. 11. 2020, 15:58:38 »

Jedná se o VB6 kde Long má 32 bitů a Integer 16.

7

Vývoj / Kliknutí na buňku ListView pomocí Send/PostMessage

« kdy: 04. 11. 2020, 15:48:47 »

Dobrý den,

obracím se o radu, neb už vážně nevím. Pomáhám si pomocí winapi, abych na podstrčeném (automatizace) ListView activeX kliknul na nějakou souřadnici, jejíž výpočet jsem už zvládnul a dokážu tam přesunout myš následovně.

Kód: [Vybrat]

Private Function SetMouseCursor() As Long

    Dim row As Integer
    Dim maxRow As Integer
    Dim col As Integer
    Dim maxColumn As Integer
    
    Dim c As Integer
            
    Dim fieldWidth As Long
    Dim fieldHeight As Long
    
    Dim lParam As Long
    
    Dim typPoint As POINTAPI
    
    Dim lRet As Long
    
    Let row = Val(CurrentRow.Text)
    Let col = Val(CurrentColumn.Text)
    
    Let maxRow = Val(NumberOfRows.Text) - 1
    Let maxColumn = Val(NumberOfColumns.Text) - 1
    
    If row >= 0 And row <= maxRow And col >= 0 And col <= maxColumn Then
               
        Let lParam = 0
        
        Let fieldHeight = mListView.ListItems(row + 1).Height
        
        typPoint.X = 0
        
        For c = 1 To col
            
            typPoint.X = typPoint.X + mListView.ColumnHeaders(c).Width
            
        Next
      
        typPoint.X = typPoint.X + 1
        typPoint.Y = fieldHeight * (row + 1) + 3
        
        lRet = ClientToScreen(mListView.hWnd, typPoint)
       
        lRet = SetCursorPos(typPoint.X, typPoint.Y)
        
        lRet = ScreenToClient(mListView.hWnd, typPoint)
             
        lParam = MakeLong(typPoint.X, typPoint.Y)
    
    End If
    
    SetMouseCursor = lParam

End Function

Funkce mi vrátí validní long, zkoušel jsem dělit i modulo.

Framework mi invokuje tlačítko, které zajistí toto zavolání a mělo by dojít ke kliku na tu buňku, což se ale vizuálně neděje. Tlačítko má tuto obslužnou událost.

Kód: [Vybrat]

Private Sub LC_Click()

    Dim lParam As Long
      
    lParam = SetMouseCursor
    
    PostMessage mListView.hWnd, WM_LBUTTONDOWN, 0&, lParam
    PostMessage mListView.hWnd, WM_LBUTTONUP, 0&, lParam
   
End Sub

A nemůžu a nemůžu přijít na chybu.

Pomůže mi, prosím, někdo ?

8

Vývoj / Re:Regulární výraz - zachycení opakující se sekvence

« kdy: 02. 10. 2020, 19:34:36 »

Děkuji

9

Vývoj / Re:Regulární výraz - zachycení opakující se sekvence

« kdy: 02. 10. 2020, 14:44:32 »

Reg tester píše, ale já tomu nerozumím:

A repeated capturing group will only capture the last iteration. Put a capturing group around the repeated group to capture all iterations or use a non-capturing group instead if you're not interested in the data

10

Vývoj / Regulární výraz - zachycení opakující se sekvence

« kdy: 02. 10. 2020, 14:26:17 »

Zdravíčko, v regulárních výrazech jsem nový, ale podle návodu by to šlo, kdybych věděl jak zachytit tři groupy z:

MenuBar[@AutomationId='itemId'][@Name='itemName']

online reg tester mi pomocí regulárního výrazu:

^(\w+)(\[@\w+\='\w+'\])+$

našel fullmatch, ale groupy jenom dvě:

1. MenuBar
2. [@Name='itemName']

přitom se mi to zdá na první pohled správně.

pomůže mi někdo s tín prosím? děkuji