|
You need to download setup.exe bootstrapper form www.msdn.com.microsoft.
|
|
|
|
|
Is it possible to change the color of only certin lines in a text box? I am trying to write a cheap game for my senior project and I thought it would be cool to be able to change color of the text if I was getting hit by something to red, and have me hitting the enemy in white. If anyone has any helpful thoughts please email them to me or post them.
Thanks so much
Tommy
|
|
|
|
|
You know 'txtSample.ForeColor = vbColorRed' can change your text's color, but all lines. It's impossible to change colors of only certain lines in textbox. I have 2 ways to solve this problem (I often do):
1)I think textbox is not for displaying, it's for inputing. So you should use 2 labels: 1 for you and 1 for the enemy. When you are getting hit  , your label red, enemy's label white , contrary...
2)You can use a RichTextBox:
rtbSample.SelText.ForeColor = vbColorRed
but it's not my favourite because the RichTextBox control is very complex .
I post this reply on a computer without Visual Basic installed, so that I can't test the code. If you don't like my answer or don't understand , reply me, I will find another way (I pay attention to this problem too!)
GF bos
|
|
|
|
|
Hi,
I have file as shown in the link:
http://mickey.ccs.uky.edu/doubt/a.doc
I need to parse the file and get the various text information present in it. Also, I need to differentiate whether it came from process or data(see file.)
Any help to achieve this would be highly appreciated.
Are there any ways to access the content of an OLE object ?
Looking forward for replies.
Thanks
Ignatius
|
|
|
|
|
Does anyone know how to format a date to October 02, 2004 when the incoming data is 10/02/2004? (Using Basic Syntax not Crystal Syntax)
The following code works in vb.net but I can't figure out what the correct syntax would be in the formula editor.
Dim dteSDate As Date = csvDataRow.Item("SDATE")
Dim strFormatSDate As String = Format(dteSDate, "MMMM dd, yyyy")")
All help is greatly appreciated!
|
|
|
|
|
|
|
I'm wanting to covert from using access to mysql on a program that I'm writing for myself, but I can't seem to set up the connection to the database in Visual Basic. I know it's an online database ,but I'd like to have a way to use the same information for the web interface as well as the desktop interface. Although on the desktop side, I don't want to use ASP, PHP, etc. If anyone has figured out how to do this, I would appreciate any direction on how to go about doing this,
|
|
|
|
|
Try to check the connection string library[^] and some discussion from here.[^]
A thousand mile of journey, begin with the first step.
APO-CEDC
Save Children Norway-Cambodia Office
|
|
|
|
|
Does anybody know anything about using a text file with a DataGrid?
I have a tab-delimited text file that I would like to load into a DataGrid and the only information that I can find talks about using a database.
What I would like to do is load all lines with no tabs into column 1, load all lines with one tab into column 2, load all lines with two tabs into column 3, etc. The number of tabs will vary so I would like to be able to create columns as needed (on the fly).
Example:
Data in column 1
(one Tab) Data in column 2
Data in column 1
(one Tab) Data in column 2
(two tabs) Data in column 3
Data in column 1
Thanks
Brad
|
|
|
|
|
You will need to specify weather you are using VB6 or .NET, the code willbe quiet different.
Thanks,
Daryl
|
|
|
|
|
Daryl Morgans wrote:
You will need to specify weather you are using VB6 or .NET
I'm running .NET.
Brad
|
|
|
|
|
What you will need to do is create a datatable to store the file in. The following should get you started.
Dim dt As New DataTable("MyTable")
Dim dc As New DataColumn("Column1")
Dim rw As DataRow
rw = dt.NewRow()
rw("Column1") = SomeValue
dt.Rows.Add(rw)
MyDataGrid.Datasource = dt
|
|
|
|
|
Cool!
That looks like it will get me going in the right direction.
Thanks Daryl 
|
|
|
|
|
Try This Code:
While nPosition <= UBound(g_workList)
GetFileList(g_workList(nPosition))
nPosition = nPosition + 1 'INCREMENT nPosition HERE!
End While
|
|
|
|
|
Hey,
That worked for the first iteration through GetFileList but then when an increment is made, this needs to be passed back in to the GetFileList function but it instead exits the while loop as it becomes greater than the UBound of the array which is a problem at this time during execution.
Thanks for your help
Chris
|
|
|
|
|
I guess this will solve your problem:
While nPosition < UBound(g_workList) 'Changed the condition
GetFileList(g_workList(nPosition))
nPosition = nPosition + 1
End While
|
|
|
|
|
Without the <= the while loop is never entered because at first nposition has not been incremented and is '0' and the Ubound value of the array is also '0'.
Thanks for your help
Chris
|
|
|
|
|
Problem solved.
Thanks for the help
Chris
|
|
|
|
|
Hi All I wanted to use TAPI in VB.NET.. where a user will dial a number the system will check the users number as an authenticating process and reply back with a message that is stored for that particular user.
Agnelo Noronha
|
|
|
|
|
How can I definite an account is admin's?
I tried to get a registered key (the path of Winword.exe) by VB6 (used API). It was success with my computer (admin account), but failed with others ?!!
Help me, please!
GF bos
|
|
|
|
|
Hey I'm making a breakout game and my problem is that I cant get the ball to bounce off the paddle.
heres the code:
Public Class Form1
Inherits System.Windows.Forms.Form
Dim intHorizontalMomentum As Integer
Dim intVerticalMomentum As Integer
Dim intPaddleSpeed As Integer
Dim intOrigPaddleLocation As Integer
Dim dblDeflectAngle As Double
Dim intDifficulty As Integer
Dim varDeflectAngle As Double
Const constOrigBallLocX = 5000
Const constOrigBallLocY = 3000
#Region " Windows Form Designer generated code "
Public Sub New()
MyBase.New()
'This call is required by the Windows Form Designer.
InitializeComponent()
'Add any initialization after the InitializeComponent() call
End Sub
'Form overrides dispose to clean up the component list.
Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
If disposing Then
If Not (components Is Nothing) Then
components.Dispose()
End If
End If
MyBase.Dispose(disposing)
End Sub
'Required by the Windows Form Designer
Private components As System.ComponentModel.IContainer
'NOTE: The following procedure is required by the Windows Form Designer
'It can be modified using the Windows Form Designer.
'Do not modify it using the code editor.
Friend WithEvents picPaddle As System.Windows.Forms.PictureBox
Friend WithEvents picBall As System.Windows.Forms.PictureBox
Friend WithEvents picWallTop As System.Windows.Forms.PictureBox
Friend WithEvents picWallLeft As System.Windows.Forms.PictureBox
Friend WithEvents picWallRight As System.Windows.Forms.PictureBox
Friend WithEvents picBrick As System.Windows.Forms.PictureBox
Friend WithEvents tmr1 As System.Windows.Forms.Timer
<system.diagnostics.debuggerstepthrough()> Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container
Dim resources As System.Resources.ResourceManager = New System.Resources.ResourceManager(GetType(Form1))
Me.picPaddle = New System.Windows.Forms.PictureBox
Me.picBall = New System.Windows.Forms.PictureBox
Me.picWallTop = New System.Windows.Forms.PictureBox
Me.picWallLeft = New System.Windows.Forms.PictureBox
Me.picWallRight = New System.Windows.Forms.PictureBox
Me.picBrick = New System.Windows.Forms.PictureBox
Me.tmr1 = New System.Windows.Forms.Timer(Me.components)
Me.SuspendLayout()
'
'picPaddle
'
Me.picPaddle.BackColor = System.Drawing.SystemColors.Highlight
Me.picPaddle.Image = CType(resources.GetObject("picPaddle.Image"), System.Drawing.Image)
Me.picPaddle.Location = New System.Drawing.Point(288, 424)
Me.picPaddle.Name = "picPaddle"
Me.picPaddle.Size = New System.Drawing.Size(100, 16)
Me.picPaddle.TabIndex = 0
Me.picPaddle.TabStop = False
'
'picBall
'
Me.picBall.Image = CType(resources.GetObject("picBall.Image"), System.Drawing.Image)
Me.picBall.Location = New System.Drawing.Point(40, 192)
Me.picBall.Name = "picBall"
Me.picBall.Size = New System.Drawing.Size(16, 16)
Me.picBall.TabIndex = 1
Me.picBall.TabStop = False
'
'picWallTop
'
Me.picWallTop.Image = CType(resources.GetObject("picWallTop.Image"), System.Drawing.Image)
Me.picWallTop.Location = New System.Drawing.Point(0, 0)
Me.picWallTop.Name = "picWallTop"
Me.picWallTop.Size = New System.Drawing.Size(720, 16)
Me.picWallTop.TabIndex = 2
Me.picWallTop.TabStop = False
'
'picWallLeft
'
Me.picWallLeft.Image = CType(resources.GetObject("picWallLeft.Image"), System.Drawing.Image)
Me.picWallLeft.Location = New System.Drawing.Point(0, 0)
Me.picWallLeft.Name = "picWallLeft"
Me.picWallLeft.Size = New System.Drawing.Size(16, 456)
Me.picWallLeft.TabIndex = 3
Me.picWallLeft.TabStop = False
'
'picWallRight
'
Me.picWallRight.Image = CType(resources.GetObject("picWallRight.Image"), System.Drawing.Image)
Me.picWallRight.Location = New System.Drawing.Point(680, -1)
Me.picWallRight.Name = "picWallRight"
Me.picWallRight.Size = New System.Drawing.Size(16, 456)
Me.picWallRight.TabIndex = 4
Me.picWallRight.TabStop = False
'
'picBrick
'
Me.picBrick.Image = CType(resources.GetObject("picBrick.Image"), System.Drawing.Image)
Me.picBrick.Location = New System.Drawing.Point(296, 72)
Me.picBrick.Name = "picBrick"
Me.picBrick.Size = New System.Drawing.Size(100, 24)
Me.picBrick.TabIndex = 5
Me.picBrick.TabStop = False
'
'tmr1
'
Me.tmr1.Enabled = True
Me.tmr1.Interval = 1
'
'Form1
'
Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
Me.BackColor = System.Drawing.SystemColors.ControlText
Me.ClientSize = New System.Drawing.Size(696, 454)
Me.Controls.Add(Me.picBrick)
Me.Controls.Add(Me.picWallRight)
Me.Controls.Add(Me.picWallLeft)
Me.Controls.Add(Me.picWallTop)
Me.Controls.Add(Me.picBall)
Me.Controls.Add(Me.picPaddle)
Me.Name = "Form1"
Me.Text = "Form1"
Me.ResumeLayout(False)
End Sub
#End Region
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
intDifficulty = 10
intHorizontalMomentum = -intDifficulty
intVerticalMomentum = 10
End Sub
Protected Overrides Function ProcessCmdKey(ByRef msg As System.Windows.Forms.Message, ByVal keyData As System.Windows.Forms.Keys) As Boolean
Select Case keyData
Case Keys.Left
intPaddleSpeed = intDifficulty
Case Keys.Right
intPaddleSpeed = -intDifficulty
Case Else
Return MyBase.ProcessCmdKey(msg, keyData)
End Select
Return True
End Function
Private Sub tmr1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tmr1.Tick
picPaddle.Left = picPaddle.Left - intPaddleSpeed
picBall.Top = picBall.Top + intVerticalMomentum
picBall.Left = picBall.Left + intHorizontalMomentum
'paddle
If picBall.Top - picBall.Height <= picPaddle.Top Then
picBall.Top = picPaddle.Top + picPaddle.Height
intVerticalMomentum = -intVerticalMomentum
End If
'left wall
If picBall.Left <= picWallLeft.Left + picWallLeft.Width Then
picBall.Left = picWallLeft.Left + picWallLeft.Width
intHorizontalMomentum = -intHorizontalMomentum
End If
'right wall
If picBall.Left + picBall.Width >= picWallRight.Left Then
picBall.Left = picWallRight.Left - picBall.Width
intHorizontalMomentum = -intHorizontalMomentum
End If
'top wall
If picBall.Top <= picWallTop.Top - picWallTop.Height Then
picBall.Top = picWallTop.Top - picWallTop.Height
intVerticalMomentum = -intVerticalMomentum
End If
'paddle/wall
If picPaddle.Left <= picWallLeft.Left + picWallLeft.Width Then
picPaddle.Left = picWallLeft.Left + picWallLeft.Width
intPaddleSpeed = 0
End If
If picPaddle.Left + picPaddle.Width >= picWallRight.Left Then
picPaddle.Left = picWallRight.Left - picPaddle.Width
intPaddleSpeed = 0
End If
End Sub
Private Sub Form1_KeyUp(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles MyBase.KeyUp
intPaddleSpeed = 0
End Sub
End Class
the problem is after the 'paddle
plz help thanks
|
|
|
|
|
Reading your code is really a hard work being mentioned this way!
Try just sending the parts you have writen or the parts causing the error and ALSO the error description
|
|
|
|
|
When I click on the save button I get a error. Here is the code
Private Sub SaveRecord()
Dim pdsSaveRow As DataSet
Me.BindingContext.(Me.DsCustomerIndividual1, "Customers").EndCurrentEdit()
pdsSaveRow = DsCustomerIndividual1.GetChanges(DataRowState.Modified)
odaCustomerIndividual.Update(pdsSaveRow)
Me.DsCustomerIndividual1.Customers.AcceptChanges()
End SubPrivate Sub SaveRecord()
Dim pdsSaveRow As DataSet
Me.BindingContext(Me.DsCustomerIndividual1, "Customers").EndCurrentEdit()
pdsSaveRow = DsCustomerIndividual1.GetChanges(DataRowState.Modified)
odaCustomerIndividual.Update(pdsSaveRow)
Me.DsCustomerIndividual1.Customers.AcceptChanges()
End Sub
|
|
|
|
|
What's the error you are getting?
|
|
|
|
General 
News 
Suggestion 
Question 
Bug 
Answer 
Joke 
Praise 
Rant 
Admin 
Submit an article or tip
