Skocz do zawartości

Problem z progressbarem

Marciniak

Przez Marciniak,
w Visual Basic

Rekomendowane odpowiedzi

Marciniak

Marciniak

Opublikowano
Opublikowano

Witam. 

 

Mam dość kłopotliwy problem. Stworzyłem aplikację w VB na podstawie szablonu. W momencie gdy chciałem zakodować tę aplikację pojawił się problem. A mianowicie z progressbarem. Kiedy chce ten progressbar z szablonu przypisać do buttona pojawia się błąd: 

 

YSYd.png

 

 

Próbowałem edytować ten kod, ale ciągle to samo. Dodam, że wybierając standardowy progressbar wszystko jest ok. Tylko z tym z szablonu są takie problemy.

 

Bardzo proszę o pomoc. Nagrodzę plusami :)

Zarejestruj się za darmo i zacznij zarabiać online!

  • Darmowe poradniki pokazujące krok po kroku jak zarabiać w Internecie
  • Sposoby zarabiania niepublikowane nigdzie indziej
  • Aktywna społeczność, która pomoże Ci rozwiązać problemy i doradzi
  • Profesjonalne treści na temat e-commerce, SEO, social media, afiliacji, kryptowalut, sztucznej inteligencji, freelancingu i wiele więcej!
  • Bezpośredni dostęp do Get Paid 2.0 w ramach jednego konta na make-cash.pl!
Marciniak

Marciniak

Opublikowano
  • Autor
Opublikowano

Na screenie masz napisane co jest nie tak. :)

Wartosci width oraz height nie moga byc rowne 0.

Tak wiem. Próbowałem zmieniać te wartości w linijce którą podaje mi błąd, lecz ciągle to samo... ;/

Marciniak

Marciniak

Opublikowano
  • Autor
Opublikowano

Kolejny problem napotkałem. Używam szablonu w którym nie ma możliwości zmiany w zakładce Properties ikony programu. Po włączeniu aplikacji na pasku zadań pojawia się ikona standardowa. Jak mogę się jej pozbyć lub zamienić ją na inną? 

banan1

banan1

Opublikowano
Opublikowano

Aby zmienić ikonkę która wyświetla się w pasku z listy po prawej stronie musisz wybrać form 1 i tam to ustawiasz. Ustawiasz tam też nazwę jaka się wyświetla w pasku. A aby zmienić ikonę aplikacji.exe musisz przejść do zakładki Windows aplication (czy jakoś tak) i tam po prawej stronie będziesz to miał.

Wysłane z mojego HTC One przy użyciu Tapatalka

Marciniak

Marciniak

Opublikowano
  • Autor
Opublikowano

Aby zmienić ikonkę która wyświetla się w pasku z listy po prawej stronie musisz wybrać form 1 i tam to ustawiasz. Ustawiasz tam też nazwę jaka się wyświetla w pasku. A aby zmienić ikonę aplikacji.exe musisz przejść do zakładki Windows aplication (czy jakoś tak) i tam po prawej stronie będziesz to miał.

Wysłane z mojego HTC One przy użyciu Tapatalka

Tyle to wiem, tylko że ja tworzę aplikację korzystając z szablonu w którym nie ma po prawej stronie możliwości zmiany ikony. Dlatego pytam jak rozwiązać ten problem.

banan1

banan1

Opublikowano
Opublikowano (edytowane)

Bo nie w theme się zmienia ikonkę tylko w form1 za godzinkę będę w domu mogę na Skype Ci pokazać

Wysłane z mojego HTC One przy użyciu Tapatalka

Edytowane przez banan1
Marciniak

Marciniak

Opublikowano
  • Autor
Opublikowano

Bo nie w theme się zmienia ikonkę tylko w form1 za godzinkę będę w domu mogę na Skype Ci pokazać Wysłane z mojego HTC One przy użyciu Tapatalka

No nie da się w ten sposób zmienić ;> Ok chętnie skorzystam, może uda się coś zrobić :)

Marciniak

Marciniak

Opublikowano
  • Autor
Opublikowano (edytowane)

Podaj mi kod tego progressbaru to obczaje co i jak.

  Private Sub ReactorProgressBar1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ReactorProgressBar1.Click
 
    End Sub
End Class
 
 
 
Public Class ReactorProgressBar : Inherits Control#Region " Control Help - Properties & Flicker Control "    Private OFS As Integer = 0    Private Speed As Integer = 50    Private _Maximum As Integer = 100    Public Property Maximum() As Integer        Get            Return _Maximum        End Get        Set(ByVal v As Integer)            Select Case v                Case Is < _Value                    _Value = v            End Select            _Maximum = v            Invalidate()        End Set    End Property    Private _Value As Integer = 0    Public Property Value() As Integer        Get            Select Case _Value                Case 0                    Return 1                Case Else                    Return _Value            End Select        End Get        Set(ByVal v As Integer)            Select Case v                Case Is > _Maximum                    v = _Maximum            End Select            _Value = v            Invalidate()        End Set    End Property    Protected Overrides Sub OnPaintBackground(ByVal pevent As System.Windows.Forms.PaintEventArgs)    End Sub    Protected Overrides Sub CreateHandle()        MyBase.CreateHandle()        ' Dim tmr As New Timer With {.Interval = Speed}        ' AddHandler tmr.Tick, AddressOf Animate        ' tmr.Start()        Dim T As New Threading.Thread(AddressOf Animate)        T.IsBackground = True        T.Start()    End Sub    Sub Animate()        While True            If OFS <= Width Then : OFS += 1            Else : OFS = 0            End If            Invalidate()            Threading.Thread.Sleep(Speed)        End While    End Sub#End Region    Sub New()        MyBase.New()        DoubleBuffered = True    End Sub    Protected Overrides Sub OnPaint(ByVal e As System.Windows.Forms.PaintEventArgs)        Dim G As Graphics = e.Graphics        MyBase.OnPaint(e)        Dim intValue As Integer = CInt(_Value / _Maximum * Width)        G.Clear(Color.FromArgb(38, 38, 38))        Dim backGrad As New LinearGradientBrush(New Rectangle(1, 1, intValue - 1, Height - 2), Color.FromArgb(10, 9, 8), Color.FromArgb(31, 29, 26), 90S)        G.FillRectangle(backGrad, New Rectangle(1, 1, intValue - 1, Height - 2))        Dim hatch As New HatchBrush(HatchStyle.WideUpwardDiagonal, Color.FromArgb(175, 219, 78, 0), Color.FromArgb(175, 229, 98, 0))        G.RenderingOrigin = New Point(OFS, 0)        G.FillRectangle(hatch, New Rectangle(1, 1, intValue - 2, Height - 2))        Dim glossGradient As New LinearGradientBrush(New Rectangle(1, 1, intValue - 2, Height / 2 - 1), Color.FromArgb(80, Color.White), Color.FromArgb(50, Color.White), 90S)        G.FillRectangle(glossGradient, New Rectangle(1, 1, intValue - 2, Height / 2 - 1))        G.DrawRectangle(New Pen(New SolidBrush(Color.FromArgb(10, 10, 10))), New Rectangle(0, 0, Width - 1, Height - 1))        G.DrawRectangle((New Pen(New SolidBrush(Color.Black))), New Rectangle(1, 1, Width - 3, Height - 3))        G.DrawRectangle((New Pen(New SolidBrush(Color.FromArgb(70, 70, 70)))), New Rectangle(0, 0, Width - 1, Height - 1))        G.DrawLine(New Pen(New SolidBrush(Color.FromArgb(45, 45, 45))), 0, 0, Width, 0)        G.DrawLine(New Pen(New SolidBrush(Color.FromArgb(45, 45, 45))), 0, 0, 0, Height)        G.DrawLine(New Pen(New SolidBrush(Color.FromArgb(45, 45, 45))), Width - 1, 0, Width - 1, Height)    End SubEnd Class

 

Edytowane przez Marciniak
Daret

Daret

Opublikowano
Opublikowano

nie wiem o co może chodzić, niestety ten progressbar jest zbyt skomplikowany jak na mnie. Bo ja nie używam skórki i mój wygląda tak:

 

Wklejam taki kod do timera:

       ProgressBar1.Increment(1)        If ProgressBar1.Value = ProgressBar1.Maximum Then            Timer1.Stop ()        End If                   

      

Jeśli chcesz dodać odpowiedź, zaloguj się lub zarejestruj nowe konto

Tylko zalogowani użytkownicy mogą dodawać komentarze.

Zarejestruj nowe konto

Załóż nowe konto. To bardzo proste!

Zarejestruj się

Zaloguj się

Posiadasz już konto? Zaloguj się poniżej.

Zaloguj się

spacer.png

Mentoring Get Paid 2.0

Tematy
×
×
  • Dodaj nową pozycję...

Powiadomienie o plikach cookie

Ta strona korzysta z ciasteczek, aby świadczyć usługi na najwyższym poziomie. Dalsze korzystanie z witryny oznacza zgodę na ich wykorzystanie. Polityka prywatności .

  Akceptuję