Bullets And Numbering In Word
How to set hte bullets and numbering from the number I want to start
I used
Code:
theDoc.Range.ListFormat.ApplyListTemplate ListTemplate:=lFormat, ContinuePreviousList:=True, ApplyTo:=wdListApplyToSelection
but it start numbering from 1
Let's say I want to start from 4, how to solve it?
thank you
View Complete Forum Thread with Replies
See Related Forum Messages: Follow the Links Below to View Complete Thread
Bullets In Word
Is there anyway to add bullets and then text to a word document, by checking some values in excel file? I want to do this using macros in excel. If somebody could just tell how to add a bullet to an word doc through macros, that would work as well. Thanks
Lina
Word Automation - Retaining The Numbering Format In New Word Document
Hi all,
I am using word automation to read a word document. I use word automation to read the word document page by page and paste the contents of each page in a new document.
The problem i am facing is, the word document which is read contains Heading1,Heading 2 etc and these are numbered. When I paste these pages onto a new document the numbering is not retained. (Eg., if my Heading1 number is 2.1 when i paste it in a new document the Heading1 number is shown as 1.1)
Using MS WORD BULLETs With Text Boxes
I have created 'issue' boxes (read Textboxes) that a user can put several lines of issues as it pertains to a specific problem. I've discovered how to tap into the spelling part of MS Word, what I would like to know is there a way to access the bullet layout?
Right now, I am having the user place 'bb' in the text and when the program sees it, I will generate the bullet character myself.
Thanks
Inserting Bullets In A Word Document Using Vb Code
i have a code that lists files in the folder and its subfolders. but it needs to be bulleted the code works fine , puts proper bullets in the first looping but when it moves to the second folder the indent is gone. heres the code:
listfiles is a function that displays the files in a folder.
VB Code:
Sub listfiles(folder2 As String) With wrdobj.FileSearch .LookIn = folder2 .FileType = msoFileTypeAllFiles .Execute totalfiles = .FoundFiles.Count If totalfiles > 0 Then Dim i As Integer i = 1 While totalfiles > 0 wrdobj.Selection.TypeText Text:=Right(.FoundFiles.item(i), Len(.FoundFiles.item(i)) - InStrRev(.FoundFiles.item(i), "")) & vbCrLf totalfiles = totalfiles - 1 i = i + 1 Wend wrdobj.Selection.Range.ListFormat.ListOutdent wrdobj.Selection.Range.ListFormat.RemoveNumbers wdBulletGallery Else wrdobj.Selection.Range.ListFormat.RemoveNumbers wdBulletGallery wrdobj.Selection.Range.ListFormat.ListOutdent End If End With End Sub Dim filobj As New FileSystemObject Dim subfolder As Folder Dim mainfolder As Folder Dim nestedfolder As Folder Set mainfolder = filobj.GetFolder(selectedfolder) total = total + mainfolder.Files.Count wrdobj.Selection.TypeText mainfolder.Name & vbCrLf If mainfolder.SubFolders.Count > 0 Then For Each subfolder In mainfolder.SubFolders wrdobj.Selection.Range.ListFormat.ApplyListTemplate ListTemplate:=wrdobj.ListGalleries(wdBulletGallery).ListTemplates(2) wrdobj.Selection.Range.ListFormat.ListIndent wrdobj.Selection.TypeText subfolder & vbCrLf wrdobj.Selection.Range.ListFormat.RemoveNumbers wdBulletGallery If subfolder.SubFolders.Count > 0 Then For Each nestedfolder In subfolder.SubFolders wrdobj.Selection.Range.ListFormat.ApplyListTemplate ListTemplate:=wrdobj.ListGalleries(wdBulletGallery).ListTemplates(3) wrdobj.Selection.Range.ListFormat.ListIndent wrdobj.Selection.Range.ListFormat.ListIndent wrdobj.Selection.TypeText nestedfolder & vbCrLf wrdobj.Selection.Range.ListFormat.RemoveNumbers wdBulletGallery wrdobj.Selection.Range.ListFormat.ApplyListTemplate ListTemplate:=wrdobj.ListGalleries(wdBulletGallery).ListTemplates(1) wrdobj.Selection.Range.ListFormat.ListIndent wrdobj.Selection.Range.ListFormat.ListIndent wrdobj.Selection.Range.ListFormat.ListIndent listfiles (nestedfolder) Next wrdobj.Selection.Range.ListFormat.ApplyListTemplate ListTemplate:=wrdobj.ListGalleries(wdBulletGallery).ListTemplates(3) wrdobj.Selection.Range.ListFormat.ListIndent wrdobj.Selection.Range.ListFormat.ListIndent listfiles (subfolder) Else wrdobj.Selection.Range.ListFormat.ApplyListTemplate ListTemplate:=wrdobj.ListGalleries(wdBulletGallery).ListTemplates(3) wrdobj.Selection.Range.ListFormat.ListIndent wrdobj.Selection.Range.ListFormat.ListIndent listfiles (subfolder) End If Next wrdobj.Selection.Range.ListFormat.ApplyListTemplate ListTemplate:=wrdobj.ListGalleries(wdBulletGallery).ListTemplates(2) wrdobj.Selection.Range.ListFormat.ListIndent listfiles (mainfolder) wrdobj.Selection.Range.ListFormat.RemoveNumbers wdBulletGallery Else wrdobj.Selection.Range.ListFormat.ApplyListTemplate ListTemplate:=wrdobj.ListGalleries(wdBulletGallery).ListTemplates(2) listfiles (mainfolder) End If MsgBox "The files in the folder " & """" & folder1 & """" & " and its subfolders have been listed in the Word document " & """" & "Folder Listing - " & folder1 & ".doc" & """" & " in the " & """" & folder1 & """" & " folder." wrddoc.SaveAs (selectedfolder & "Folder Listing - " & folder1 & ".doc") wrddoc.Close Set wrddoc = Nothing wrdobj.Quit Set wrdobj = Nothing
Auto Numbering In Word
Is it possible to add an auto numbering system to a word document, so that each time the document template is filled in, it will automatically add a number? This is a complaint form, which will be printed as well as saved to a file. Although this question does not have a great number of points, I really need an answer ASAP. Thanks for all of your help.
AJL
Word Document Sequential Numbering
Hello
I need to reformat a tracking form that is almost completely filled in by hand. The manager wants a field in the form to be assigned a sequential number each time that it is printed out. Should I use a field, a macro or vba for word?
Word Wrap With Line Numbering
I am writing an html highlighting control and i have wrod wraping and a line numbering skema in it. what happens now is that when i have ti wrap text it adds the line number for every wraped lin. what i would ultimatly like it to do is check the end of each line for a carage return/line feed and if it is found add a new line number but if is is not found then just add a space or something to specifif that a part of line is there rather than a new line.
I'm not sure how i would do this so if anyone know how i could get started on this it would be very appricated.
Thanks in advance.
Sid
here is my line number code.
Code:
Public Function LineCount() As Long
' return the total line count of the code window
LineCount = SendMessage(RichTxtBox.hwnd, EM_GETLINECOUNT, 0, 0)
End Function
Public Function CurrentLine() As Long
CurrentLine = SendMessage(RichTxtBox.hwnd, EM_LINEFROMCHAR, RichTxtBox.SelStart, 0) + 1
End Function
Private Sub WriteLineNumbers()
Dim x As Long
Dim lStart As Long
Dim FontHeight As Long
Dim lFinish As Long
Dim lCurrent As Long
lStart = SendMessage(RichTxtBox.hwnd, EM_GETFIRSTVISIBLELINE, 0, 0) + 1
lCurrent = CurrentLine
With picLines
.Cls
FontHeight = .TextHeight("12345")
.CurrentY = Screen.TwipsPerPixelY * 1
.CurrentY = .CurrentY + 15
lFinish = (RichTxtBox.Height / FontHeight) + lStart
If lFinish > LineCount Then lFinish = LineCount
' loop from the first visible line in the rtb to the end of the page
For x = lStart To lFinish
If x = lCurrent Then
.FontBold = True
Else
.FontBold = False
End If
picLines.Print Right$(" " & x, 5)
Next x
End With
End Sub
RTB Line Numbering With Word Wrap
I am wondering if any one can help me with this. I am working an advance text editor and i want it to to line number like this when it is word wraped
1
-
-
2
-
3
4
5
-
-
what the '-' is for is when the line wraps i dont want it to number it with the following number i want it ot be a '-' and i dont want it to show the number until the line is actually anew line. my code that i have words when your on line one but once you start scrolling it get off set beacause i am using an api call to get the first visible line. below is my sub that i use to write the line numbers with.
Code:
Private Sub WriteLineNumbers()
Dim y As Long
Dim x As Long
Dim lStart As Long
Dim FontHeight As Long
Dim lFinish As Long
Dim lCurrent As Long
lStart = SendMessage(RichTxtBox.hwnd, EM_GETFIRSTVISIBLELINE, 0, 0) + 1
lCurrent = CurrentLine <-- calls an api function
y = 1
With picLines
.Cls
.Font = RichTxtBox.Font
FontHeight = .textHeight("12345")
.CurrentY = Screen.TwipsPerPixelY * 1
'.CurrentY = .CurrentY + 15
lFinish = (RichTxtBox.Height / FontHeight) + lStart
If lFinish > LineCount Then lFinish = LineCount ' LineCount is the api call in a function
y = lStart
' loop from the first visible line in the rtb to the end of the page
For x = lStart To lFinish
If x = lCurrent Then
.FontBold = True
Else
.FontBold = False
End If
' check for wordwrap
If WordWrap Then
If GetLine(x) Or x = 1 Then
picLines.Print Right$(" " & y, 5)
y = y + 1
Else
picLines.Print Right$(" -", 5)
End If
Else
picLines.Print Right$(" " & x, 5)
End If
Next x
End With
End Sub
RichTxtBox is a richtext box and picLines is a Picture Box.
Thanks,
Sid
Page Numbering In Word... Help Meeeee
is there anyway of controlling page numbers in word.. i am using vba environment in word.
my word file consists of sections.
each section has some pages.
page numbering should be of the format page x of y
where x starts from 2,3.. for each section starting from 2.
i.e, section1,second page should have 2 of y
section2 second page should have only 2 of y.
where y is the tot number of pages of each section.
pls iam sitting with this for a week... please help me......
i am using word 97.
tried autoentry page x of y but it is displaying wrongly.
'for x
Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldPage
'for y
Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldSectionPages
pls help meeeeeee.......
Cell Numbering In Word 2007
i have 7 columns
and 98 rows
when i add numbers i each cell then it wil give me
1 2 3 4 5 6 7
8 9 10 11 12 13 14
and so on
but i want the numbers as follow
7 6 5 4 3 2 1
14 13 12 11 10 9 8
and so on
how can i create it in word 2007 ?
Edited by - Johnnyd1963 on 8/3/2008 8:48:46 PM
Using VBA To Insert Page Numbering In Word 2003
Hi all
I'm trying to automate the insertion of page numbers into a template via a VBA macro in MS Word 2003.
I currently have a macro which deletes header and footer information, including the page numbers. So... I need the page numbers to be re-inserted in a non-standard position in the template (i.e. to the far right and halfway down the page). At the moment I have only been able to insert the pages in the footer with standard left/right alignment etc.
Does anybody know how I can set the position I would like the page numbers to appear in the template? I'm really trying to automate the manual process of grabbing the page number and dragging and dropping it at the desired position on the page.
I have been looking around for answers, but I haven't done any VBA programming in a while so I thought I might try here
Any help would be *much* appreciated.
Thanks in advance
mang
How To Export Listbox Items To Word With Bullet And Numbering
Hi....
I want to export data from a listbox to MS Word.....
I am, however, able to get help from this forum on how to export data to MS Word, I need to insert bullet and numbering before each line exported to MS Word.
e.g.
i have list items like....CAT,DOG,CAMEL...
i want to export them asCATDOGCAMEL
Any help will be greatly appreciated.....Thanx
&"Curing&" Word's List Numbering With VBA
Hey everyone, I am using VBA to generate documents with lists that must then be cut and pasted into another Word document (there is NO way aroud this). Unfortunately, some of these lists are nested and so cutting-and-pasting often screws them up, and then I lose all the time I saved by using a VBA form
Soo I came across a very helpful and extensive website:
http://word.mvps.org/FAQs/Numbering/WordsNumberingExplained.htm
which within it has a link to another article, "How to cure Word's List Numbering with a dose of VBA", http://word.mvps.org/FAQs/Numbering/CureListNumbering.htm , BUT THE LINK DOESN'T WORK. It hasn't worked every time I've tried in the last couple of months, even after emailing the webmaster.
So rather than me banging my head on my desk and continually hitting refresh on that site, does someone have a copy of the information contained there or can someone explain how it is done? I will be eternally grateful!
Bullets...
I just started programming and I am making a program that you fly around in a plane and shoot down objects (2d of course). How do you make the bullets or image that I use for the bullets duplicate so that every time you fire the bullet that has already been fired doesn't dissapear so that there is more than one bullet going at once?
Thanks
Bullets
hey guys, im new here =), ive got finals coming up and im doing a 2 player shooting game...i have the ships able to move and stuf but i have no idea how to do the bullets...i dont know how you guys help on this site but i dont want all the code just maybe a sniplet and/or explanation...all i know is you need timers
thanks a lot guys...the teacher wont help me =( hehehe
Bullets
i cna get mulitpul bullets to fire now but i cant get multipul bullets to be moving at the same time. heres the code i use.
Option Explicit
Dim Chamber as integer
____________________________________________________
Private Sub TimeFire_Timer()
If Chamber > 49 Then
Chamber = 0
End If
If B(Chamber).Top >= -400 Then
B(Chamber).Top = B(Chamber).Top - 300
End If
If B(Chamber).Top <= 0 Then
B(Chamber).Visible = False
End If
End Sub
____________________________________________________
Private Sub Timer2_Timer()
Select Case True
Case GetAsyncKeyState(VK_FIRE)
TimeFire.Enabled = True
Chamber = Chamber + 1
If Chamber > 49 Then
Chamber = 0
End If
B(Chamber).Top = Picture1.Top + 50
B(Chamber).Left = Picture1.Left + 250
B(Chamber).Visible = True
End Select
End Sub
____________________________________________________
i would be able to put all the bullets on seperat timers but i dont really want to do that for 50 bullets.
HFICKER
Bullets
Morning from england,
Does anybody have any sample code that will allow me to insert a couple of lines at a bookmark in word 2000 and then apply bullets to the text just added. I can add to a bookmark using the following code
Code:
WordDoc.Bookmarks("HOURS1").Select
WordApp.Selection = "Mike" & vbcrlf & "Was" & vbcrlf & "Here"
The above text should look something likeMikeWasHere
Bullets...howto?
Hey i'm working on my first project and am wondering how one goes about making bullets? Im not looking for code, just a technique or some hints... I have thought about just drawing out each bullet and having variables update as it flies away but then how would i have multiple bullets at one time? Please help
Drawing Bullets
A quick question, for a space shooter game, (ex) Raiden, instead of having a bullet picture, i would like to have a line that started at the ship, extended to the top of the form and then retracted back into itself to disappear. How would i do that? Thank you for any help.
The Robopig
Fireing Bullets
I am making a game that involves shooting and i dont know how to shoot. I need an object to fly from a point of orgin to the top of the screen. simple code is smiled upon.
HFICKER
Advanced Bullets
Up till now i had bullets in my games that have their X, Y, VelocityX and VelocityY components. But this is not good enough now. When i update my bullets i always check for collision detection by checking the distance between a bullet and each player and checking if its lower than say 100. But if the bullet speed is like 500 because i want my bullets to be fast, they fly past people without being detected as a hit...
Therefore i was thinking about alternate ways to detect a hit... such as creating a line between the target and the shooter, then alternating it randomly so that the shooting is not always precise. This would mean to alternate the slope in some fraction. But now how would i check how far the target is from the line ? I do not know how i could go about this. I would have to invert the slope because the line lenght i want to find is perpendicular to the original line, but then i dont know how to go with it furtherer
Anyone done this before or has some ideas?
Bullets And Cursor
I'm trying to extract some data from a word file and put it in another word file. The data going to the new word file needs to be arranged with titles and bullets. I know how to move the data into a word file and I know how to activate/inactivate bullets, but i'm having trouble activating my bullets only for certain lines. I've been using move and insertafter commands but the move doesn't move the cursor but just moves the point where new data will be added. This is giving me trouble activating bullets only to particular lines. If someone know how to go around this, please get back to me. Thanks
Lina
Bullets In DirectDraw
Hey,
this prob is really killing me. I can't get more then one bullet to fire. When ever I fire a second bullet the first one just dissappears off the screen. Everything else seems to work fine This is my code so far.
Dim BulletXPos As Integer
Dim BulletYPos As Integer
Public Sub ShootBullet()
BulletXPos = XPos + 58
BulletYPos = YPos
End Sub
Public Sub Shooting()
Dim SrcRect As RECT
Dim DestRect As RECT
With SrcRect
.Bottom = 15
.Left = 0
.Right = 15
.Top = 0
End With
With DestRect
.Bottom = BulletYPos + 15
.Left = BulletXPos
.Right = BulletXPos + 15
.Top = BulletYPos
End With
BulletYPos = BulletYPos - 4
BackBuffer.Blt DestRect, Bullet, SrcRect, DDBLT_KEYSRC Or DDBLTFAST_WAIT ' Draws bullet
End Sub
ShootBullet is called whenever the spacebar is pressed and shooting is in the main game loop. I know I gotta use arrays but I just don't know where. Please help me.
Password Bullets?
How can I make the password character of a text box be a bullet instead of, say, an asterix?
About The Bullets In The Game
First of all, hi and sry 4 the bad english.
I've been reading this forum for 4-5 days and I've found everything that Ive been lookin for.but I think with this question the search button wont be enough.
Im programming a game (lol noobie game w/o directx or so) just a few lines and some buddies
here question starts ( at last xP)
I dont want exactly a code but Id like to have some suggestions.
with a timer im sending the player location but what about the bullets ? must i send their locations 5 times per second ? i think that will be laggy. but ill make another timer that deletes the bullets after 5 sec. so there will be at most (refers it maximum ?) 12-13 bullets in the game and the data per bullet will be like this "x:1234:y:5234" and this data will be sent 5 times per second.Willl the bandwidth enough to meet requirements
thanx
and if u correct my sentences ill be happy ( if u want u can )
Question About Bullets
Greetings from cold Finland for everyone! Here are -15 degrees celsius and I could say that's pretty cold...
So here is the problem;
I've been making program, which makes word-documents and I need to insert bullets in the document. Those bullets must be placed in the middle of the document.
Here is what I've tried (already 3 days... huh):
set aRange = ActiveDocument.Content
Set myRange = .ActiveDocument.Range(Start:=iStartHere, End:=iStopHere)
myRange.ListFormat.ApplyBulletDefault
myRange.Select
aRange.Text = strFirst & vbcrlf & vbcrlf _
& myRange.Text & vbcrlf & strSecond & vbcrlf
And the problem is that nothing happens... So there are no bullets inside the myRange.text!
Could anyone help me this situation... It's a pretty hard.
Thanks for everyone!
Marko
RichTextBox And Bullets
Does anyone know of a workaround for the RichText bug involving bullets? Specifically, if you enter three lines of text in a multiline RichTextBox and "bullet" the second line, then assign the RichText's TextRTF property to another RichTextBox, the third line inherits a small, phantom bullet. Thanks in advance for any help!
Bullets In RichTextBox
I need help with bullets in RichTextBox
I have used the method rtf.SelBullet = True.
it works,BUT it creates an adiitional phantom bullet at the end. Trying to export the textRTF to Active Reports, the format does not work properly.
If anybody has a solution, I would really appreciate.
Bullets (when U Require Alot Of Them)
Ok, im making a game and have thot of how i want to do bullets...well..i want alot of bullets and creating like 100 objects and checking code for each just isnt going to be that efficient i dont think....So i want to know how i should go about making bullets...The bullets will all look the same, move the same, same speed , ect, the bullets also will go through some collision code but that is about it... Now..were should i go from here.. Im not sure, as i know nothing about BitBlt or w/e, but looking at some games using it ..bullets look very nice with it..So i am willing to learn a whole new function ,ect. However i dont want to learn it all (unless i really have to)..i just want to do bullets!!..so if someone would kindly point me in the right derection and show me some good tutorials/examples..that would be great :P Thanx alot.
Rapid Shooting Of Bullets
Say I want to have a gun that can have.. up to 10 shots on screen at once.
Now, I will probably have to create an array to hold each bullet's x,y coordinates, but what is the best way of finding the next bullet that isn't active?
i.e. - The player presses fire, bullet(0), bullet(1), and bullet(2), all are fired one after the other, and they have their active property set to true. Now if the player presses fire again, bullet(3) will be the bullet set to active.
How can I get the program to find the first non-active bullet in an array? Do I have to loop through each member of the array until a non-active one is reached? Or is there a better way?
Hmm, looking at this post, I realise it may not be too clear (the problem). Ask if you have any questions!
Thanks!!
Managing Bullets In A Game.
I have seen a few questions about using a control array to function as a bullet, so I decided to post a little example.
The first thing to do with a bullet control array is to make it.
http://www.xtremevbtalk.com/showthread.php?t=8753
Or, you can just set one bullet to have an index, and then in Form_Load, load a few more.
Code:
Private Sub Form_Load()
Dim LV As Integer
For LV = 1 To Bullets
Load Projectile(LV)
'Load our bullets.
Next
End Sub
(Bullets is a constant and Projectile is the bullet control array)
The second thing would be to shoot a bullet from this bullet control array.
Code:
Dim BulletBeingUsed(1 To Bullets) As Boolean 'declarations.
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
Dim LV As Integer, Index As Integer
Index = 0 'If no bullets, this is the default value.
For LV = 1 To Bullets
If BulletBeingUsed(LV) = False Then
Index = LV
LV = Bullets 'Exit the for loop.
End If
Next
If Index > 0 Then
'Synchronize the usage array with the visible properties of the control.
Projectile(Index).Visible = True
BulletBeingUsed(Index) = True
Projectile(Index).Move Grimer.Left, Grimer.Top
'Initialize its location.
End If
End Sub
The For Loop loops through the boolean array that indicates if the bullet of a certain index is currently flying somewhere. False means the bullet is not flying.
The If statement at the bottom activates the bullet. (Grimer being who is shooting the bullet)
The final thing to do is move each bullet that is activated. Also, one may check if the bullet has hit something afterwards (in which case, the bullet is discarded and the bullet is no longer in use).
Code:
Private Sub Timer1_Timer()
Dim LV As Integer
For LV = 1 To Bullets
If BulletBeingUsed(LV) Then
'If bullet is out there.
Projectile(LV).Left = Projectile(LV).Left + 250
'Move it forward by some amount.
If Projectile(LV).Left >= 10000 Then
'If it hits an obstacle, then it is removed.
Projectile(LV).Visible = False
BulletBeingUsed(LV) = False
End If
End If
Next
End Sub
Here, we move all of the bullets that have been set as an actively flying bullet. Immediately after, we check if it goes off of the edge of the form. This is where your collision detection would be placed.
http://www.xtremevbtalk.com/showthread.php?t=54042
Good luck.
I Know Another Question... Buts Its Not Bullets
Ok i have bullets shooting and stuff but the background is black i want to make it look like little stars (dots) keep sliding down arcross the screen. So it gives it that, im flying forward look
Control Array With Bullets
I have my coding so it shoots one bullet, but how do i make it shoot more than one on the screen.
Private Sub Form_KeyPress(KeyAscii As Integer)
If KeyAscii = vbKeySpace Then
Picture2.Visible = True
Picture2.Top = Picture1.Top: Picture2.Left = Picture1.Left
Timer2.Enabled = True
End If
End Sub
Private Sub Timer2_Timer()
Picture2.Top = Picture2.Top - 25
End Sub
Bullets For A Space Game
Ok heres the deal, im new a vb. Ive started making a game, right now on my star ship game i have moving stars and a moving space ship. I need to know how to make bullets shoot in a strait direction. This is a new part of the game, there is no starting code for bullets yet. I dont know how to start. So if someone could please and post the code hear.
Generating Bullets With VB Code
I have created a small VB application that uses bookmarks in Word, what i need to do is add bullets, how do i create bullets with vb code and then place them into a bookmark in Word.
Thanks to all that reply.
Bullets In Rich Text Box
I want to make it where when the user hits a btn it starts a bulleted list but when the hit enter it creats a new bullet 2 lines down.
VB Code:
richTextBox1.BulletIndent = 30
Fast Way Of Detecting If Any Of 15 Bullets Hit 16 Tanks
i am making a game with 16 tanks, which fire one shot then reload for a few seconds , mean while the shot it has fired will expire before the tank reaches fire time again
i am doing this to make the arrays faster, so what im doing is
detecting if any of the 15 shots(not including own shot)
hits each tank, ie.
For s = 1 to 15
For t = 1 to 16
if Bullet(s)= TankPosition(t) then DamageTank
next t
next s
in my collision detection i am basically checking if the bullet moves inside of 4 points ie
. .
. .
i was wondering if there is a better/faster way of detecting whether the bullets have hit any of the 16 tanks
remember there will be heaps of other code, so this collision detection that i will be using wont be the only code there.
Making Lots Of Bullets, Which Hit Stuff?
Ok I was wondering how to make bullets, not just one, so you can't just place an image box down, but I want to say have a little man in my game that can fire a machine gun which shoots lots of bullets that, when the bullets hit something it causes an effect, maybe change the things colour that was hit
~
Form Textbox Formated With Bullets
I have an Excel user form, that needs to add bullets when a hard return is used. Much like Word. I know I can copy the text into Word, format it and paste it back into the form, so it should be able to be done in VBA.
Any help with the coding would be helpful.
TIA
Steve
Apply Bullets To Document By Button.
Hi all,
I have a VBA form with a number of textboxes to input/edit data on a Word document.
A few of the textboxes requires the user to be able to click a 'bullet point' button and whatever they type until the button is depressed comes out in bullet points.
Working exactly the same as the 'Bullets' button from the Word Toolbar.
I beleive that the textbox object cannot show bullet points so i could use the '-' character in the textbox and standard bullet points in the document?
What would be the best method for achieving this?
Thanks,
Dan
Creating Tables In Richtextbox And Bullets
I am writing a word processor. I need to provide functionality for creation of tables as in MS Word. I also need tips on providing different types of bullets and setting their position in a richtextbox
My e-mail is
rgupta@lw1.vsnl.net.in
sysport@icenet.net
Error Saving Bullets In RichTextBox
Hello,
I am facing one strange problem. I am using RichTextBox control in my
VB6.0 application and have provided one button giving functionality to
set bullets on the selected text. When i type and set bullets on some
text and save the document, it is displaying everything ok. But when i
open the saved file again [whether in my application or in MS Wordpad]
I notice some small dots in the line before and after the bulleted
text.
Cant understand why !!
Can anyone help please.... Its an emergency.
Thnx in advance
How Do We Replace Boring Bullets With Numbers, Like MSWord Can?
I currently use boring bullets in my RTB application but I would really love it if I could implement numbered Bullets. IE: 1)
My boring code is as follows:
Code:
Private Sub cmdBullet_Click()
If rtbEditBox.SelBullet = False Then
'Sets the bullet's Indention
rtbEditBox.BulletIndent = 200
'Makes the Bullet Appear
rtbEditBox.SelBullet = True
rtbEditBox.SetFocus
'Remove the Bullet mark
ElseIf rtbEditBox.SelBullet = True Then
'Removes the Bullet
rtbEditBox.SelBullet = False
rtbEditBox.SetFocus
End If
End Sub
Got any clever ideas my fellow geeks?
Much appreciated,
Azeccia
REALLY Fast Collection - For Stuff Like Bullets And Enemies In A Game! ;)
Hey all, I just developed a new technique that makes it so that you *NEVER* have to use loops to create and destroy objects in an array in a game (looking for an inactive object and stuff) - and as you know, these loops really slow down a game. My technique is really simple and very easy to implement. I made a small sample but the only part you really need is like 20 lines long (2 functions - CreateBullet() and DeleteBullet() ). No credits needed
|
TRACKER
