Posts by J.C. SolvoTerra

It's greate site Dani, I guess I just forgot how to play nice with others.

I suppose if you had three themes and three sets of pre-rendered images you could load each set into it's own ImageList ensuring that each image in each list is the same (eg ImageList1 Index 0 = ButtonBack_Green, ImageList2 Index 0 = ButtonBack_Blue)

Then all you would need to do on a theme change is iterate through the themed controls and change it's Images Collection to the relevant ImageList.

This all seems very old school though, and overriding the WinForms UI objects is a lengthy process... also assuming you're a whizz with graphic design and it's various IDEs.

Then if you decide to change the design you have to start all over again creating the set's of images.

This is why WPF got created, why ddanbe suggested it and I agreed.

These things don't happen over night my friend. small steps, small steps.

let's make sure we help them in such a way that they understand the solutions provided.

Agreed.

oh yeah.... What is OP?

textbox.text = "msaccess data" =0)

Oh pant's, you up vote and it becomes featured? daaaaaaaaaaaaaang it.

"note to self... Keep out of it man"

@Santanu Das.

I have been on DaniWeb just over two weeks now, and what a roller coaster it has been. Honestly I was seconds away from giving a good ole down vote to this thread.... "oooo scary", but every day things get more and more clear. Though I hope I'm miss-understanding what Mr.M is saying and will not get too involved in the initial post, there is an element that can be extracted... Santanu Das... you help everybody and any body, but if we're going to teach people, make sure we provide a solution, well commented and documented that can teach them. If they decide to copy, paste and run, that's up to them, but if you've provided a solid base to learn from, comments, structure etc, I don't think anybody will be upset if help is provided.

I've never studied a day of any I.T. subject in my life. When I first saw MSDN after half an hour I was crying in the corner, rocking backward and forward. I've come a long way and can now use MSDN quite happily, but it was a combination of factors that got me to where I am 1. people prepared to provide good learning material and 2. My decision, once I'd got the code to learn and understand it.

@Reverend Jim. Great reference, I'll be sure to consider that in the future too. I'm glad other contributors on this thread aren't guilty of partakiing in this auto-homework-completion scenario.

just to make sure I'm not getting the wrong end of the stick here. I'd like you to play part in the following scenario.

Post From :TheNoobestNoobEver
Rep:0
Increase Rep:0
Decrease Rep:0

Question: I'm brand new to VB.Net, and for my school project I have been asked to run a counter from 1 to 10 and show the increments in a label.

Answer 1:

    For X As Integer = 1 to 10
        Label1.Text=X
        Me.Refresh()
        Threading.Thread.Sleep(100)
    Next

Answer 2:

Start by placing a button and a label onto your form. In the Button's click event paste the following code.

    'You would be best off using a For-Next Loop
    'The Loops can either iterate through a collection
    'of objects or increment values.

    'This loop is going to increment the value of X
    'from 1 to 10. Each time we hit Next the loop 
    'goes back to the beginning and increments X
    'by 1 until it reaches 10, at which point the loop
    'is exited

    For X As Integer = 1 to 10
        'Here you can see your labels text property is set to
        'the value of X
        Label1.Text=X
        'BEcause this loop will run super fast, let's slow
        'it down so we can see the reults
        Me.Refresh()'Refresh the form and it's objects
        Threading.Thread.Sleep(100)'Pause the UI thread 1\10 of a second
    Next

Answer 3:

Have you tried MSDN Click Here

Just go ahead and answer which response you would provide to this day …

Have you seen this?

Click Here

That's great to hear. My biggest piece of advice for you is remeber you have an undo button, many many undos. Don't be afraid to change and play with code and monitor the results... if you brake it, use undo.

I do get something from helping. Not only do I learn next time to be much clearer and accurate in my responses, I get satisfaction in knowing I've helped someone. Simple as that.

Yes dim will work.

OK. you need to remove the connection between the timer and the actual clock. try this.

Every time The ClockTick is called the routine is adding one minute onto the clock time.

The timer is only the frequency of "How Often Is The ClockTick Routine Called"

changing the timer interval only increases or decreases time between calls to the ClockTick routine.

The ClockTick routine counts in minutes not seconds.

So:

If we set the Timers interval to 10, every 10 milliseconds, one minute will be added to the clock.

If we set the timer interval to 1000, every second, one minute will be added to the clock.

If you wanted the clock to represent a realtime scenario you would set the Timer interval to 60000 (60 seconds). This means every minute the ClockTick routine is called and the clock minute is incremented by 1.

ClockTimer.Stop()

error is: Object reference not set to an instance of an object.

Apologies, delete this line of code.

'This Value Is In MilliSeconds So If You Wanted
'1 Tick Every Second You Would Set This To 1000
ClockTimer.Interval = 10

If I make it to count seconds, result would be same, but it will be needed longer time to finish or?

Again correct. This is the delay mechanism between counts for method 2 used purely to slow the incrementing down so you can see what is happening. In Method 1 the delay mechanism is the Threading.Thread.Sleep(10) where 10 is also milliseconds. If you remove this from method 1 the routine would complete before you could blink

Here's those tutorials I was talking about, they're really good and helped me get straight into WPF Click Here

OK, here's the basic solution that you wanted. I have included 2 Methods. Each method provides the same results, but one is timed using a Timer (Method 2) and the other is a simple Do - Loop (Method 1).

I've included the Do-Loop so you have all the code you need in one place, however it will lock up your form.

To copy and paste this code directly you need to add a label and two buttons to your form.

Public Class Form1

    '#####################################Solution Objects
    'The Timer Object That Will Provide
    'You With A Tick
    Private ClockTimer As Timer

    'Your Clock Object That will hold the time
    Private Clock As DateTime

    'The End Time
    Private EndTime As DateTime

    'Hands Over Counter
    Private HandsOverCount As Int16
    '##################################END SOLUTION OBJECTS


    '###################THIS CODE NOT NEEDED FOR METHOD 1
    Private Sub Form1_Load(sender As Object, e As EventArgs) _
    Handles MyBase.Load

        'Initiate A New Timer
        ClockTimer = New Timer

        'Add A Handler For The Tick Event
        'Every Time The Timer Ticks It Calls the "ClockTick" Routine
        AddHandler ClockTimer.Tick, AddressOf ClockTick

    End Sub
    '###################END THIS CODE NOT NEEDED FOR METHOD 1

    '###################################METHOD 1
    'Start The Simple Do-Loop Example
    Private Sub Button2_Click(sender As Object, e As EventArgs) _
    Handles Button2.Click

        SelfContainedSample()

    End Sub

    'This is a standalone version in a loop. It will give you
    'the same results as the example above but all the elements you need
    'are in one place. Rmember though, running this directly will lock
    'up your windows form until completion.
    Private …

oops, wrong thread

Ok. Though thinking about it there is only 11. 12:00 is the start point 11:59 is the end point there are 60 minutes in an hour but they go from 0 to 59. 0 can't be the start and end of the same hour otherwise therd be 61 minutes in an hour.

I'll have the solution for yoy in a few hours.

Sorry its 12 if you count the the stary and end podition. Its only 11 if you dont count the start position.

Ignore previous post about it 13

Ok so starting at 12 isn't being counted as hands over each other... i suppose if you start at 12 and end at 12 technically they're over each other 13 times. Im sorry but 11 just isnt right, you'd have to start at 12:01 and end at 11:59 for 11 counts.

Is this for a school project? If it is I'll provide you with the solution but make it into a kind of tutorial to help you understand exactly whats going on. I'll provide you with a much more basic graphical representation too if you like.

... I've not taught myself yet hahahaaaa (not enough to teach). In addition, I'm pretty old school. Instead of using blends clever ui all the effects and storyboards are in code. I can send you a link to a great tutorial series i found on youtube. I'll post it when I get home

Make sure though, if you are using Now, you covert the 24hr hour to a 12hr hour.

Ok. Well if your not too fussed about the accuracy of the physical hands you could simply do

If Now.Minute = Now.Hour x 5 then OverCounter +=1

This is basically iterating every time the minute hand goes over the specific hour segment of the clock. This could be made even more accurate by only incrementing when the minute hand is on the same 60th segment as the hour hand or even more accurate over the same 360th segment.

I know this is an old thread Deep, but I started playing around with WPF a couple of months ago, within a day I'd managed to create a really nice navigation system. I strongly urge you to persue WPF in the future... Even if it's not WPF than XAML with a different UI

Here's a video I posted to give an example Click Here

Note: this isn't the most effective way to draw on to the form, just a quick example.

do you mean a clock that counts every time the minute hand is over the hour hand?

if so... your answer should actually be 12

Any way, just for a giggle. Here's some classic clock maths. Copy and paste this code into your form. The forms title will count the number of times the second hand goes over the minute hand. The minute hand and hour hand sweep. If you want the second hand to sweep you'll need to pass milliseconds. I've used variables instead of just equations so you can hopefully get an idea of whats going on.

Just to save even more time. to do what I think you want to do... All you need to do is increment your HandOverCounter every time the second = minute or minute = hour depending on which hand over hand you want to count.

Public Class Form1

    Dim tmr As Timer
    Dim B As Bitmap
    Dim TickOver As Integer

    Private Sub Form1_Load(sender As Object, e As EventArgs) _
    Handles MyBase.Load

        tmr = New Timer
        tmr.Interval = 1000

        AddHandler tmr.Tick, AddressOf DrawClock

        tmr.Start()
    End Sub

    Private Sub DrawClock(sender As Object, e As EventArgs)

        DrawHands(Now.Hour, Now.Minute, Now.Second)

    End Sub

    Private Sub DrawHands(HourVal As Single, MinuteVal As Single, _
    SecondVal As Single)


        Dim Pi As Single
        Dim X As Single
        Dim Y As Single

        Dim SecondAngle As Long
        Dim MinuteAngle As Long
        Dim HourAngle As Long

        'This simply increments when the second hand is over _
        the minute hand
        If SecondVal = MinuteVal …

Apologies, it looks like I posted entirely the wrong link.

http://www.vbforums.com/showthread.php?329373-MsgBoxEx-Extended-Message-Box

but unfortunately it is still a lengthy process and requires subclassing

Can anyone provide links/source to good working examples design and run time. Creating, editing and general management of the settings namespace.

I'm currently pottering about with MSDN...

I totally agree reverend jim. For much larger data sets i do prefer it. I tend to write a mutable class to allow the easy ammendments of new variables. But it was for smaller collectios of data like this i wanted to learn alternatives. Rest assured the My.Settings is undoubtedly the approach i need to adopt.

Note: Serializeable objects must be public.

Here's a simple set of settings\Data. Much more in-depth structures can be used.

Imports System.IO
Imports System.Xml.Serialization

Public Class Form1

    <Serializable()> _
    Public Class Settings

        Private _Name As String
        Public Property Name As String
            Get
                Return _Name
            End Get
            Set(value As String)
                _Name = value
            End Set
        End Property

        Private _Age As String
        Public Property Age As String
            Get
                Return _Age
            End Get
            Set(value As String)
                _Age = value
            End Set
        End Property

        Private _Title As String
        Public Property Title As String
            Get
                Return _Title
            End Get
            Set(value As String)
                _Title = value
            End Set
        End Property

        Private _ContactNumber As String
        Public Property ContactNumber As String
            Get
                Return _ContactNumber
            End Get
            Set(value As String)
                _ContactNumber = value
            End Set
        End Property
    End Class

    Public MySettings As Settings

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

        MySettings = New Settings
        MySettings.Name = "Jay Clark"
        MySettings.Age = "33"
        MySettings.Title = "Mr."
        MySettings.ContactNumber = "Ha... as if"

    End Sub

    'Serialize The Settings Class to XML
    Private Sub Button1_Click(sender As Object, e As EventArgs) _
        Handles Button1.Click

        Dim sWriter As New _
            StreamWriter("C:\Users\Jay\Documents\test.xml")

        Dim XMLS As New XmlSerializer(MySettings.GetType)

        XMLS.Serialize(sWriter, MySettings)

        sWriter.Close()

    End Sub

    'Read XML Into Settings Object
    Private Sub Button2_Click(sender As Object, e As EventArgs) _
        Handles Button2.Click

        Dim sReader As New _
            StreamReader("C:\Users\Jay\Documents\test.xml")

        MySettings = New Settings

        Dim XMLS As Xml.Serialization.XmlSerializer = New _
        XmlSerializer(MySettings.GetType)

        MySettings = XMLS.Deserialize(sReader)

        sReader.Close()

        Console.WriteLine(MySettings.Name)


    End Sub
end sub

Which gives you an xml settings\Data file like this

<?xml version="1.0" encoding="utf-8"?>
<Settings …

I can see how a database would be very useful for much larger projects that may have shared resources and settings.

I too am a stickler for serializing XML or even a basic INI. Have never used the My.Settings object, though now I will fully research it as it's probably the way foward with "For simpler things, I prefer app.config."

if three reputable engineers are stating the use of App.Config, I'd better get on it.

I'll leave this thread open for a few days, would like to see if there's any oddities that may be of interest.

Thanks guys.

It's 2013. Is everything ok?

I have used several methods to save a program's settings in the past.

• System Registry
• INI files (Encrypted\Plain)
• XML file as a resource or external file
• XML app.config

etc.

I'm wondering either:

1. What's your preferred method for saving your program's settings?
2. Is there a preffered industry standard?
3. Does .Net provide a namespace for reading writing a programs settings?
4. As VS creates settings in XML in the app.config file should I sipmly take this as preferred.

In short... what's YOUR prefered method OR what's the PROPER method =0)

If you mean something like this...

Then I believe I can help. If you are still around and you haven't figure it out then let me know. I'm going to paste the code any way for other people to get a rough idea of whats happening behind the scenes.

Note: I think what your doing is resizing an actual picturebox, the picture box is inside a panel so the panel acts as a clipping area. What this code does is process the image in memory, and draws the centered zoomed image to the view picture box. The picturebox on the left is a visual representation of whats going on in memory.

Yeah, I thought Jeline 1 might be able to figure it out from those articles...

Ok, I'll do it...

    'Imports System.Data.OleDb
    'Imports Microsoft.Reporting.WinForms

    Private Const EXCEL97 = "Provider=Microsoft.Jet.OLEDB.4.0; _
    Data Source={0};Extended Properties='Excel 8.0;HDR={1}'"

    Private Const EXCEL07 = "Provider=Microsoft.ACE.OLEDB.12.0; _
    Data Source={0};Extended Properties='Excel 8.0;HDR={1}'"

    Private Sub Import_To_Grid(ByVal FilePath As String, _
    ByVal Extension As String, ByVal isHDR As String)

        Dim conStr As String = ""
        Select Case Extension
            Case ".xls"
                'Excel 97-03
                conStr = EXCEL97
                Exit Select
            Case ".xlsx"
                'Excel 07
                conStr = EXCEL07
                Exit Select
        End Select
        conStr = String.Format(conStr, FilePath, isHDR)

        Dim connExcel As New OleDbConnection(conStr)
        Dim cmdExcel As New OleDbCommand()
        Dim oda As New OleDbDataAdapter()
        Dim dt As New DataTable()

        cmdExcel.Connection = connExcel

        'Get the name of First Sheet
        connExcel.Open()
        Dim dtExcelSchema As DataTable

        dtExcelSchema = _
            connExcel.GetOleDbSchemaTable(OleDbSchemaGuid.Tables, Nothing)

        Dim SheetName As String = dtExcelSchema.Rows(0) _
            ("TABLE_NAME").ToString()
        connExcel.Close()

        'Read Data from First Sheet
        connExcel.Open()
        cmdExcel.CommandText = "SELECT * From [" & SheetName & "]"
        oda.SelectCommand = cmdExcel
        oda.Fill(dt)
        connExcel.Close()


        Dim RV As ReportViewer = New ReportViewer
        RV.LocalReport.DataSources.Add(New ReportDataSource)
        RV.LocalReport.DataSources.Item(0).Value = dt

    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) _
        Handles Button1.Click

        Import_To_Grid("C:\Users\Jay\Documents\Book1.xlsx", _
            ".xlsx", "{1}")

    End Sub

Sorry

The ReportViewer is now populated with the Excel Data.

If there's anything you can add to help Santanu Das, that would be awesome.

Here's two examples of what you are looking for. They certainly have clues

MSDN
Click Here

DIC
Click Here

I hope they help.

Thanks Reverend Jim.

Yeah, I got kinda carried away explaining things. Doh!

I'm currently working on a collection of sub-projects, one of which was a backup manager. I needed to be able to allow the user to specify a backup time and a repeat interval. After thinking about the solution, decided it would be best for the user to provide an Initial DateTime of the first occurance and how frequent they would like to repeat the event. This class can be used to help determaine Alarms, Reminders or anything that requires an event to be triggered at a certain time.

Fun and Good for Beginners

It was good fun writing this wee class and thought it would be a great example for junior developers on using DateTime and TimeSpan to determine things like DateTime manipulation, and the difference between two Dates and Times.

Note: “Event” throughout this snippet is referring to something like an alarm, a calendar reminder or any other action to be performed at a certain date and time.

User Input Required

The Date of the first occurrence
The Time of the First Occurrence
The Repeat Interval

0 = No Repeat
1 = Daily
2 = Weekly
3 = Monthly
4 = Yearly

The “NextEvent” method of the EventManager class then calculates the next occurrence of the event based on today’s date and time.

Returns

the next event date, time and a duration until the next event.

What's happening

Let’s say todays date …

do you mind if I ask you what UI environment you are using, eg Winforms or WPF? Or are you asking specifically about layout, navigation etc?

I'd like to throw my 2 cents in here. I totally agree with oussama_1

regarding the .Net side. I chose VB, to this day I regret not choosing C#. It shouldn't take me too long to traverse when I'm ready, but for all the arguments for and against VB.Net and C#.Net, personally I feel a little left short with VB.Net

Why? I'm not able to give you much of a reason other than there is so much more support for C# and there's certain examples where I've converted C# to VB and the code for VB is much more long winded.

Doesn't look too easy in VB6 I'm afraid, a quick google search turned up this

http://www.vbforums.com/showthread.php?17725-About-Constents-in-Msgboxs

It looks like subclassing to me.

I think you need to add a reference to the Flash library. Or copy the DLL to the projects bin\release folder.

ah, ok. That really does help with my concern. Infact that's perfect.

Thanks.

Ooops

@Warrens80
if "Everybody hates me...yet I stick around" was refering to yourself then ignore previous comment and stop trying so hard to upset people. If it was sarcasm directed at me then please go ahead and read away.

Damn reading misinterpretations...

@Reverend Jim
As you can imagine, very much apreciated. But please, this isn't just about getting Kudos or being recognized or 'Wanting everybody to be my friend'. It's about contributions being snubbed with no reason, need or explenation.

it's not about getting 'enough' of them... I'd be happy with 0.

@Warrens80
I'm pretty thick skinned ... I assure you of that, it wasn't a case of being offended that ticked me off, it was the etiquette that baffled me. And what would you suggest, that I don't make my observations known to the people who can explain or if need be resolve the situation. Yes, that's how things progress and evolve. Judging from your history I think I'll take your comment with a pinch of salt. Funny how that works isn't it, I know nothing about you, yet I'm judging the relevance of your comment by a 'meaningless' score provided by other people's interaction with you... Why on earth would I get annoyed about being down voted unnecessarily?

I'm 33 guys, im not fussed about reputation.

Still Lol'd at "knobend"

Coolio, now I have a better understanding of what can happen It's much easier to gauge how far i throw my teddies in the future.

Oh ok... well now i know what im dealing with... i guess that's fair enough.

Problem solved.

Still it would be nice to be able to differentiate between "bee in bonnet" and "dude, that's actually wrong"

Haaaa 'weenie points'

Yeah... ok it's a time thing. It's not about getting 'enough' of them... I'd be happy with 0.

We all enjoy an up vote of course, it resembles an appreciated effort. A down vote seems to resemble anything from "I dont like your face and I'm" to "the code is actually wrong".

To potential clientd (as daniweb suggests) the down votes resemble inefficiency.

I'm 33 guys, im not fussed about reputation. I am far from a know it all so when someone downvotes I'm being told its wrong... which I can accept. "But it works because I've just tested it. Why is it wrong?"

I want to learn as much as the person posting the question but I'm left with... it works... but it is wrong... so,

1. is the down voter tallented enough to know its wrong and down vote it whilst at the same time not being bothered to provide a solution or help.

2. The down voter is a click-happy person who has a bee in his bonnet.

What on earth is going on.I'm trying really hard to build a good reputation on this site putting a lot of effort into responses i tackle. Last night I recieved 3 more down votes and i cant even see what for. I thought they may have been residual votes from a rude outburst when i first joined... but they weren't.

I was totally prepared to get stuck in and be a positive supportive member of the community.

I wish you all the best in the future.
Jay