when you quote a post could you please do it via the "Reply With Quote" button or if it multiple post click the "''+" button then "Reply With Quote" button.
If this thread is finished with please mark it "Resolved" by selecting "Mark thread resolved" from the "Thread tools" drop-down menu. https://get.cryptobrowser.site/30/4111672
Using the code you used to solve the problem in the above thread.
vb Code:
Option Explicit
Dim cnt As Integer
Private Sub Form_Load()
Label2.Visible = False
Picture2.Height = Picture1.Height
Picture2.BackColor = vbBlue
Picture2.Width = 0
tm.Enabled = True
tm.Interval = 1
End Sub
Private Sub tm_Timer()
cnt = cnt + 1
Label1.Caption = (cnt) & " % "
If cnt > 100 Then
Label2.Visible = True
tm.Enabled = False
Else
Picture2.Width = (cnt / 100) * Picture1.Width
End If
End Sub
when you quote a post could you please do it via the "Reply With Quote" button or if it multiple post click the "''+" button then "Reply With Quote" button.
If this thread is finished with please mark it "Resolved" by selecting "Mark thread resolved" from the "Thread tools" drop-down menu. https://get.cryptobrowser.site/30/4111672
you are wright ..Nightwalker83 .. but i want the label should be display only once when ist time form is load .. and when in next time of form loading label should be loaded
at ist instance of form load label is displayed and unloaded
and in 2nd instance of form load label should not be displayed,,
when you quote a post could you please do it via the "Reply With Quote" button or if it multiple post click the "''+" button then "Reply With Quote" button.
If this thread is finished with please mark it "Resolved" by selecting "Mark thread resolved" from the "Thread tools" drop-down menu. https://get.cryptobrowser.site/30/4111672
thanks but i do not want to put any count system in label .. it is simple label which only should load when form is loaded and unload after few seconds .. and when in 2nd instance again form is loaded the label should not be loaded.. something like SaveSetting and GetSetting
Modify the code I have given you to make it work with the code weeluke gave you here.
when you quote a post could you please do it via the "Reply With Quote" button or if it multiple post click the "''+" button then "Reply With Quote" button.
If this thread is finished with please mark it "Resolved" by selecting "Mark thread resolved" from the "Thread tools" drop-down menu. https://get.cryptobrowser.site/30/4111672
Yes, but that code weeluke gave you can be modified to do what you want.
when you quote a post could you please do it via the "Reply With Quote" button or if it multiple post click the "''+" button then "Reply With Quote" button.
If this thread is finished with please mark it "Resolved" by selecting "Mark thread resolved" from the "Thread tools" drop-down menu. https://get.cryptobrowser.site/30/4111672
Private Sub Form_Load()
Form1.Show
Label1.Visible = False
On Error Resume Next
SaveSetting "hh", "StartupForm", "TimesRun", GetSetting("hh", "StartupForm", "TimesRun", 0) + 1
Timesrun = GetSetting("hh", "StartupForm", "TimesRun")
ProUpdate = GetSetting("hh", "StartupForm", "ProductUpdate")
If ProUpdate <> "Loaded" Then
productupdate.Show vbModal
Label1.Visible = True
End If
If booCheck = False Then
popup.Label1.Caption = "You have used this Programme - " & Timesrun & " Times"
popup.Show
booCheck = True
Else
'dont do anything
End If
End Sub
Sorry, but I don't get what your question. Janu, could you please explain a bit more about what you are trying to accomplish ?
If my post was helpful to you, then express your gratitude using Rate this Post.
And if your problem is SOLVED, then please Mark the Thread as RESOLVED (see it in action - video) My system: AMD FX 6100, Gigabyte Motherboard, 8 GB Crossair Vengance, Cooler Master 450W Thunder PSU, 1.4 TB HDD, 18.5" TFT(Wide), Antec V1 Cabinet Social Group:VBForums - Developers from India