Anonymní profil Hanes – Programujte.com

Ahoj,

dokončil jsem svůj program, který pracuje hned s několika externími soubory (.xls, .doc). Tyto soubory jsou otevřeny, upraveny a pak někam uloženy.

Aktuálně řeším problém s umístěním otvíraných souboru. Nyní mám natvrdo nastavenou cestu někam do PC. Pokud však program použiji na jiném PC, tak to samozřejmě nebude fungovat.

Vidím tedy dvě řešení:

A) soubory vždy budu koupírovat společně s xxxx.exe souborem a nastavím cestu k souborum tak, aby vedla ke složce kde je .exe soubor uložen - netuším jak na to.

B)četl jsem něco o "Copy to output directory" - tímto soubory nakopírují do složky projektu, ale dál nevím jak se k soubrům dostat.

Může někdo poradit?

Ahoj,

chystám si udělat aplikaci, která mi z excelové databáze vytáhne potřebná data a následně podle mých požadavků bude tvořit grafy. Následně bych výsledek potřeboval exportovat do PDF. S grafy jsem však ještě nepracoval. Je tohle možné, případně jakou cestu řešení byste mi doporučili?

Díky

#33 Matěj Andrle
Tak hotovo! Funguje to tak jak požaduji. Mohl by ses na můj výtvor kouknout a říct, co by se dalo vytvořit jinak, elegantněji? (text v labelech bude načítan přes pole z excelovské databaze)

Public Class Form1
    Dim seznam_talcitek As New Dictionary(Of String, Button)
    Dim seznam_labelu As New Dictionary(Of String, Label)
    Dim seznam_checku As New Dictionary(Of String, CheckBox)


    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        For i As Integer = 1 To 10
            Dim butt As New Button
            butt.Height = 20
            butt.Width = 20
            butt.Left = 5
            butt.Top = i * 30 - 30
            butt.Text = i
            butt.Tag = i
            butt.TabIndex = i
            seznam_talcitek.Add(butt.TabIndex, butt)
            Me.Controls.Add(butt)
            AddHandler butt.Click, AddressOf Button_Click

            Dim label As New Label
            label.Name = i & "a"
            label.Height = 30
            label.Width = 100
            label.Left = 60
            label.Top = i * 30 - 30
            label.Text = i & " nevím"
            label.Tag = i
            label.TabIndex = i
            seznam_labelu.Add(label.TabIndex, label)
            Me.Controls.Add(label)

            Dim check As New CheckBox
            check.Name = i & "a"
            check.Height = 30
            check.Width = 100
            check.Left = 160
            check.Top = i * 30 - 35
            check.Text = i & " check"
            check.Tag = i
            check.TabIndex = i
            seznam_checku.Add(check.TabIndex, check)
            Me.Controls.Add(check)

        Next
    End Sub
    Private Sub Button_Click(ByVal sender As Object, ByVal e As System.EventArgs)
        Dim butt As Button = sender
        Dim index As Integer
        index = sender.tabindex
        If seznam_checku(index).Checked = True Then
            Label1.Text = seznam_labelu(index).Text
        Else
            Label1.Text = "není označen check"

        End If

    End Sub

End Class

#31 Matěj Andrle
Tak to nejde. Nevím jestli jsem tak tupý, nebo líný, ale nejde mi najít funkční řešení. Dejde mi vytvořit pole tlačítek a kolekci jsem zvládl jen pro popisky.
 Mohl bys mi prosím v následujícím kodu upravit proceduru btn_manualClicked aby mi vyhodila popis labelu, který je vedle labelu?

Public Class Form1
    WithEvents lb_cislozakazky As Windows.Forms.Label
    WithEvents btn_manual As Windows.Forms.Button

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        For i = 1 To 10
            btn_manual = New Windows.Forms.Button
            btn_manual.Name = "btn_manual" & i
            btn_manual.Text = "M"
            btn_manual.Top = i * 20 - 1 - 16 + i
            btn_manual.Left = 5
            btn_manual.Width = 19
            btn_manual.Height = 19
            btn_manual.TabIndex = i
            btn_manual.FlatStyle = FlatStyle.Flat
            btn_manual.BackColor = Color.LightCoral

            AddHandler btn_manual.Click, AddressOf btn_manualClicked

            lb_cislozakazky = New Windows.Forms.Label
            lb_cislozakazky.Name = "label" & i
            lb_cislozakazky.Text = "Popis " & i
            lb_cislozakazky.Top = i * 20 - 1 - 16 + i
            lb_cislozakazky.Left = 25
            lb_cislozakazky.Width = 150
            lb_cislozakazky.Height = 19
            lb_cislozakazky.TabIndex = i
            lb_cislozakazky.FlatStyle = FlatStyle.Flat

            Me.Controls.Add(lb_cislozakazky)
            Me.Controls.Add(btn_manual)
        Next
    End Sub
    Private Sub btn_manualClicked(ByVal sender As Object, ByVal e As EventArgs)
        MsgBox("Hi " & sender.tabindex)
    End Sub
End Class

Budu velice vděčný a určítě to lépe pochopím, když budu mít funkční příklad.

#25 Matěj Andrle
pořádně nevím, co mám hledat, nevíš o nějakém článku, který by mi osvětlil základy, které k tomu potřebuji.

#26 Hanes
pořádně nevím, co mám hledat, nevíš o nějakém článku, který by mi osvětlil základy, které k tomu potřebuji.

tak ať si to ulehčím. Generování tlačítek mým způsobem je správné? Můžu takhle vygenerované prvky strčit do pole, nebo bych měl použít jiný způsob?

tak ať si to ulehčím tlačítek mým způsobem je správné? Můžu takhle vygenerované prvky strčit do pole, nebo bych měl použít jiný způsob?

#25 Matěj Andrle
Všemu novému, ale tak už to bývá. Kouknu na to a v pondělí budu otravovat s novým problémem, nebo plakat nad stejným. Zatím díky za rady.

#22 Matěj Andrle
používám pouze ple promněnných. Controlo neznám, jestli mi pomůže, tak se naučím

#20 Matěj Andrle
tím 1-x jsem měl namysli pole. Alespoň se domnívám:

 For i = 1 To citac - 1

            btn_manual = New Windows.Forms.Button
            btn_manual.Name = "btn_manual" & i
            btn_manual.Text = "M"
            btn_manual.Top = i * 20 - 4 - 16
            btn_manual.Left = 5
            btn_manual.Width = 20
            btn_manual.Height = 19
            btn_manual.FlatStyle = FlatStyle.Flat
            btn_manual.BackColor = Color.LightCoral
            Panel2.Controls.Add(btn_manual)

            AddHandler btn_manual.Click, AddressOf btn_manualClicked

            check_m = New Windows.Forms.CheckBox
            check_m.Name = "check_manual" & i
            check_m.Top = i * 20 - 19
            check_m.Left = 35
            check_m.Width = 20
            check_m.Height = 20
            Panel2.Controls.Add(check_m)
next

Zkusím. Díky

#17 Matěj Andrle

Tak poprosil bych o další radu.

Má skupinu checkboxu 1-x a skupinu labelu 1-x vedle sebe

Pomocí:

  For Each checkbox As Control In Panel2.Controls
            If TypeOf checkbox Is CheckBox Then
                CType(checkbox, CheckBox).Checked = False
            End If
        Next

se mi daří zaškrtávat/ odškrtávat všechny checkboxy, které vygeneruju.

Nyní bych ale potřeboval např. po stisknutí tlačítka, změnit barvu pouze u těch labelů, které jsou zaškrtnuté.

potřebuji, aby se to v určitém místě schovávalo a byl vidět neustále text nad panelem1, panel2 se hýbe v něm

#15 Matěj Andrle
Super! Panel v panelu a lítá to. Dík

#13 Matěj Andrle
do formuláře vygeneruju btn1 - btnx

pomocí scrbaru Button_stroj.Top = VScrollBar1.Value (jen zkouším)  hybu jen tím posledním.

#11 Matěj Andrle
Tak tentokrát ani google. To, že mi jeden vygenerovany btn reaguje na scrollbar není problém, jak ale donutím k pohybu všechny?

#8 Matěj Andrle
Pochopeno, využíváno.

Nyní řeším problém, že někdy vygeneruji víc labelů, než je můj monitor schopen zobrazit. Tedy že mám formulář až pod monitor. Můžu poprosit o nějaké vhodné řešení?

#6 Matěj Andrle

Ještě nikdy jsem nevytvářel tlačítko příkazem.

Pokouším se jít cestou:

http://stackoverflow.com/questions/9502169/how-to-program-a-button-made-in-code

#4 Matěj Andrle
jsem schopen zavést hodnoty buňky A1 - A10 do pole. To co nevím, je jak vytvořit ve formůlaři tlačítka pro jednotlivé proměné v poli. Tedy když budu mít naplněny pouze buňky A1-A3, vytvoří 3 tlačítka, když všechny, tak deset. Po kliknutí vypíší hodnoty dané buňky.

#2 Matěj Andrle
Aktuálně ke komunikaci s excelem používám

  Dim zdroj_stitky As String = tb_adresazdroje.Text
        Dim oExcel As Object
        oExcel = CreateObject("Excel.Application")
        oExcel.Workbooks.Open(zdroj_stitky)
        Dim oBook As Object
        Dim oSheet As Object
        oBook = oExcel.ActiveWorkbook
        oSheet = oExcel.Worksheets(1)

Jaké nástroje máte namysli?

Ahoj,

potřeboval bych alespoň navést pod čím mám hledat řešení následujícího problému:

Mám sešit v excelu. (jak propojit excel a VB a pracovat s nimi vím)

Rád bych pro každý řádek, který má nějaký zánam ve sloupci A, vygeneroval tlačítko, který by ten záznam mohlo vymazat.

Tedy potřebuji nějak dynamicky vytvářet tlačítka, nebo i jiné prvky.

Díky