|
GetFiles shouldn't do it, but right-clicking the file and clicking Properties WILL change the LastAccessed time on files stored on NTFS volumes. It's better to rely on the Modified date and time, not LastAccess.
Dave Kreskowiak
Microsoft MVP - Visual Basic
|
|
|
|
|
i have to build blackjack for my project and im having difficulty with the class for the cards. i can get the number to work i am unsure on how the suits work. has anyone built a playing card class at all? many thanks if u could help!
|
|
|
|
|
I wrote classes for card and deck as an example not so long ago. Search for it in the forums.
---
b { font-weight: normal; }
|
|
|
|
|
I was wondering if anyone had a good solution to replacing VB6.FixedLengthStrings(). I need to be able to have a constant length for strings in a function. I tried Dim str As String = Space(#), and that works fine until you set the string to its value (spaces disappear), so its apparent that is not the correct way to fix this problem. Ive been thinking about testing to see the difference between the max length of the value and the max length of the string, but I'm not sure how to put a certain number of spaces to the end of the string as you cannot insert spaces with string.insert(pos, chars). Any thoughts?
Nathan Lindley
|
|
|
|
|
<VBFixedString(15)> Dim sVal as string
Or
CONST MIN_SIZE as int16 = 15
Dim s As String = ""
s = "Hello"
s = s.PadRight(MIN_SIZE, " ")
|
|
|
|
|
Tried the first one but it was to no avail, but the second one is money. Thanks.
Nathan Lindley
|
|
|
|
|
Does anyone know how to make a picturebox control where it is always centered on the form. I have an MDI parent form that is always maximized but depending on the size of the monitor the picture box in the middle isnt always in the middle. I need a way to set this picture box to always be in the center of the form. Thank you.....
|
|
|
|
|
Private Sub Form2_Resize(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Resize
If Me.WindowState <> FormWindowState.Minimized Then
With PictureBox1
.Left = (Me.ClientRectangle.Width / 2) - (.Width / 2)
.Top = (Me.ClientRectangle.Height / 2) - (.Height / 2)
End With
end if
End Sub
|
|
|
|
|
I do the same thing with a label. I first centered it on the form through the format menu, and then I just anchored it on all four sides. The text is centered both vertically and horizontally in the label. As the font size won't change it doesn't matter that the label gets stretched. I don't know however what happens to the image in a picture box, but otherwise it should work the same way.
Johan
|
|
|
|
|
Hi All
I'd like to know how to cancel a print job (using VB) if the user presses the CANCEL button when the print dialog shows. Any ideas?
thanks in advance
|
|
|
|
|
Do anyone know the code to check to see if a row in a file contains any characters such as commas and quotes. For example:
If row("PartNumber").ToString()contains comma or single quote then
'do something
End If
jds1207
|
|
|
|
|
Dim dsTbl As New Data.DataTable("Test")
Dim dsRow As Data.DataRow = Nothing
dsTbl.Columns.Add(New Data.DataColumn("col1", GetType(String)))
dsTbl.Columns.Add(New Data.DataColumn("col2", GetType(String)))
dsTbl.Columns.Add(New Data.DataColumn("col3", GetType(String)))
For i As Int16 = 0 To 10
dsRow = dsTbl.NewRow
dsRow("col1") = Chr(65 + i)
dsRow("col2") = Chr(66 + i) & ","
dsRow("col3") = Chr(67 + i) & "."
dsTbl.Rows.Add(dsRow)
dsRow = Nothing
Next
For i As Int16 = 0 To dsTbl.Columns.Count - 1
For Each dsRow In dsTbl.Rows
If CStr(dsRow(i)).IndexOf(".") > -1 Then
'code for period
ElseIf CStr(dsRow(i)).IndexOf(",") > -1 Then
'code for comma
Else
'code for neither
End If
Next
Next
|
|
|
|
|
This is way more complicated than what I am trying to do. I just want to find the rows that have characters and insert those rows to a database table.
Here is a function I created to insert into table:
Private Sub ErrorLog(ByVal ErrorDescription As String)
Dim myConnString As String = "Data Source=172.16.20.30,1433;Initial Catalog=RAM-PriceBooks;User ID=ProductUpdate;Password=w00ty;"
Dim myInsertQuery As String = "INSERT INTO Error_Log(Error) VALUES ('" & Trim(ErrorDescription) & "')"
Dim myConnection As New SqlConnection(myConnString)
Dim retvalue As Integer
Dim myCommand2 As New SqlCommand(myInsertQuery, myConnection)
myConnection.Open()
retvalue = myCommand2.ExecuteNonQuery()
myConnection.Close()
Here is some code that I am trying to use to find the characters.
If row("PartNumber").ToString.Contains("'") Then
ErrorLog(row("PartNumber").ToString() & "Not a Valid part number")
ElseIf row("PartNumber").ToString.Contains(",") Then
ErrorLog(row("PartNumber").ToString() & "Not a Valid part number")
Any Ideas?
jds1207
|
|
|
|
|
You could probably make it a little simpler by using the IndexOf method. Something like this:
Dim AnInteger As Integer<br />
AnInteger = YourString.IndexOf(".")<br />
If AnInteger > 0 Then 'something happens here
etc.
Johan
|
|
|
|
|
Hello.
I am currently building a series of ASP.NET pages that serve as reports. All of them offer the possibility of exporting data in Excel format, either by clicking a button or directly setting Response.ContentType to "application/vnd-ms.excel".
To generate the Excel documents I am currently using Office Web Components, version 9. I have generated the necessary wrappers for COM already, added them as reference and is working. However, there is one issue I just can't solve. Some cells in some of the reports need to have the text oriented vertically. I have been looking for some property of the Range object to allow me to do this but so far I didn't found anyhting. It does have HAlignment, VAlignment and such, but nothing that could be used for setting cell orientation.
Does anyone have any suggestions ?
Thanks for attention and hope I didn't posted to the wrong forum.
|
|
|
|
|
How can i execute Command Line Switches of Microsoft Access using Visual Basic 6.0
Please Reply
|
|
|
|
|
All you have to do is add the appropriate switches to the command line that your using to launch Access, usually something like:
C:\Program Files\Microsoft Office\Office\MSACCESS.EXE /repair
You have to specify the full path to the .EXE.
Dave Kreskowiak
Microsoft MVP - Visual Basic
|
|
|
|
|
How Can i create any folder ex.c:\hi in setup program(deployment)??
Thank You
|
|
|
|
|
What tool are you using to create the setup program?
|
|
|
|
|
Hi
I had a strange problem. I had incoroporated ActiveX webbrowser control in windows forms (using vs.net 2003). I had recorded some events like click occured on the browser and stored them in the datatable as rows(one row for each event). Now what i want to do is run all these rows one by one. My problem is that the documentcomplete as well as navigatecomplete2 events doesnt fire until the whole method written for the running the events is executed. It creates a problem like i am not able to get the refreshed page in document object after navigation to a new page. Any help will be appriciable.
Thanks & Regards
Gurmeet Singh
|
|
|
|
|
Hi,
I am using COM for Word in my application, when i am going to create the object for Word it gives error "Specified cast is not valid"
My system OS is XP as well as i am using office XP for COM, i already installed Word introp PIA as well as registered all the dlls related to the same.
I am not getting how to resolve the problem?
Can anybody help me regarding this........
honey
|
|
|
|
|
Honey,
what is the type of your receiving variable?
Dim oVar as ?????? '<-- try 'object' unless your are using a reference
Set oVar = CreateObject("...")
Nathan
|
|
|
|
|
Thanks,Nathan
But i already decleared the object as following;
"wrdApp = CreateObject("Word.Application")
wrdApp.Visible = True"
and i got the error on'CreateObject()';which i specified in my previous mail,
Thanks,
Honey
-- modified at 5:25 Thursday 16th November, 2006
|
|
|
|
|
Hi,
I would like to know if visual basic 6.0 (or higher) is able to return a global variable (or kinda) that returns a "true" value or something to indicate that I'm running my application from the development environment (in this case from VB 6.0). I need it to disable some portions of code while I'm debugging some applications.
Thanks a lot 
TK
|
|
|
|
|
I'm not sure if vb6 has one built in but you can add your own. In the properties of the project, click the 'make' tab. look at conditional compilation arguments add your own call it IDE (or whatever) and give it a value of True. Then throughout your code you can can test it to whether or not you want to include the code when compiling.
Ex:
Conditional Compilation Arguments: IDE=True
#If Not IDE Then
'include this code
#Else
'??????????????
#End IF
You can use this technique for a lot of things. You can create a huge bas file that would have all the common routines that various projects that could use. But you don't want your exe/dll big because of the amount of code so tell vb what routines you want to include...
Ex: various subs and functions that you may wan to include. give each routine a number and then add all the routines up and give the conditional compilation argument ROUTINES the total.
Sub or Function Value Description
' --------------- ----- -------------
' GB_dtDateValue 1 Function to convert any string date
' to a date value
' GB_dtTimeValue 2 Function to convert any string time
' to a date value
' GB_dtDateTimeValue (8192+1+2) 8195 Function to convert a string containing
' a date and time to a date value.
' GB_iParseString 4 Function to parse a string using a
' specified delimiter
' GB_CenterFormInForm 8 Subroutine to center a called form
' within the caller form
' GB_CenterFormInScreen 16 Subroutine to center a called form
' within the screen
' GB_WindowPos_Save 32 Subroutine to save the position of
' of a form
' GB_WindowPos_Restore 64 Subroutine to restore the position
' of a form
' GB_bNumericKeyPress 128 Function checks to see if a numeric
' key was pressed
' GB_bAlphaKeyPress Function checks to see if a alpha
' key was pressed
' GB_bAlphaNumericKeyPress Function checks to see if a alpha
' or numeric key was pressed
' GB_bIsActiveWindow 256 Function to test whether or not the
' window asked about is active(top)
' GB_GiveFocusTo 512 A routine used to pass focus to a
' window via the handle.
if 1 goes into routines then it will be compiled, the rest of the routines that don't will not be included...
#If (ROUTINES And 1) Then
Public Function GB_dtDateValue(ByVal sDate As String, Optional ByRef bErr, _
Optional bHistoricalDate, Optional bHandleBeep) As Date
End Function
#End If
Hope this helps...
Nathan
-- modified at 10:20 Wednesday 15th November, 2006
|
|
|
|
General 
News 
Suggestion 
Question 
Bug 
Answer 
Joke 
Praise 
Rant 
Admin 
Submit an article or tip
