Splash Screen

This splash screen is divide into two side like triangles. I am trying

Page 1 of 1

3 Replies - 1568 Views - Last Post: 19 January 2009 - 08:17 PM Rate Topic: -----

#1 rogers311  Icon User is offline

  • New D.I.C Head

Reputation: 0
  • View blog
  • Posts: 2
  • Joined: 06-January 09

Splash Screen

Posted 19 January 2009 - 07:34 PM

Private Sub frmSplash_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles MyBase.Paint
		Dim graCurrent As Graphics = e.Graphics
		Dim recCurrent As Rectangle, colCurrent As Color
		Dim sbCurrent As SolidBrush, penCurrent As Pen
		recCurrent = New Rectangle(0, 0, Me.Width, Me.Height)
		sbCurrent = New SolidBrush(Color.Blue)
		graCurrent.FillRectangle(sbCurrent, recCurrent)
		Dim pintXCurrent As Integer = ToInt32(Me.Width * 1.1)
		Dim pintYCurrent As Integer = ToInt32(Me.Height * 1.1)
		penCurrent = New Pen(Color.White, 4)
		graCurrent.DrawLine(penCurrent, 0, 0, pintXCurrent, pintYCurrent)



		Dim fntSplash As New Font("Arial", 14, FontStyle.Bold)
		graCurrent.DrawString("Depreciation Schedule", _
			fntSplash, Brushes.Purple, 5, 265)

	End Sub 


Is This A Good Question/Topic? 0
  • +

Replies To: Splash Screen

#2 Core  Icon User is offline

  • using System.Linq;
  • member icon

Reputation: 774
  • View blog
  • Posts: 5,097
  • Joined: 08-December 08

Re: Splash Screen

Posted 19 January 2009 - 07:50 PM

Please, post your question in the main message body, not the topic description. Members cannot see what you are asking.
Was This Post Helpful? 0
  • +
  • -

#3 rogers311  Icon User is offline

  • New D.I.C Head

Reputation: 0
  • View blog
  • Posts: 2
  • Joined: 06-January 09

Re: Splash Screen

Posted 19 January 2009 - 08:11 PM

I want to put two different colors on this splash screen. This splash screen is divided into two sides like triangles. I can only get one color on it. How do I add two different colors on this splash screen? This is my code.

Private Sub frmSplash_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles MyBase.Paint
		Dim graCurrent As Graphics = e.Graphics
		Dim recCurrent As Rectangle, colCurrent As Color
		Dim sbCurrent As SolidBrush, penCurrent As Pen
		recCurrent = New Rectangle(0, 0, Me.Width, Me.Height)
		sbCurrent = New SolidBrush(Color.Blue)
		graCurrent.FillRectangle(sbCurrent, recCurrent)
		Dim pintXCurrent As Integer = ToInt32(Me.Width * 1.1)
		Dim pintYCurrent As Integer = ToInt32(Me.Height * 1.1)
		penCurrent = New Pen(Color.White, 4)
		graCurrent.DrawLine(penCurrent, 0, 0, pintXCurrent, pintYCurrent)



		Dim fntSplash As New Font("Arial", 14, FontStyle.Bold)
		graCurrent.DrawString("Depreciation Schedule", _
			fntSplash, Brushes.Purple, 5, 265)

	End Sub

Was This Post Helpful? 0
  • +
  • -

#4 BetaWar  Icon User is online

  • #include "soul.h"
  • member icon

Reputation: 1167
  • View blog
  • Posts: 7,207
  • Joined: 07-September 06

Re: Splash Screen

Posted 19 January 2009 - 08:17 PM

Please don't post duplicate topics.

Merged.
Was This Post Helpful? 0
  • +
  • -

Page 1 of 1