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 :)

Odnośnik do komentarza

Dołącz do nas za darmo i naucz się zarabiać!

  • Dostęp do darmowych poradników pokazujących 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 SEO, social media, afiliacji, kryptowalut, sztucznej inteligencji i wiele więcej!

 

 

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

Odnośnik do komentarza
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.

Odnośnik do komentarza
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
Odnośnik do komentarza
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                   

      

Odnośnik do komentarza

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

Jedynie zarejestrowani użytkownicy mogą komentować zawartość tej strony.

Zarejestruj nowe konto

Załóż nowe konto. To bardzo proste!

Zarejestruj się

Zaloguj się

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

Zaloguj się
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 .

  I accept