Get this: GitHub - 5everin/3D-Model-Viewer: A software renderer written in vb.net[^] ... and see if it won't open without an error usg VS2010 (as you suggest) ... but regardless of whether it loads or not, dissecting the classes just to have a look at how something apparently more modern in it's approach to .obj manipulation and viewing could prove informative enough for you to have a go at it yourself ... starting with a VS2010 project, scratchwise.
I agree need to know what line is throwing the error.
Can you see what ex.StackTrace shows in your Catch ex as Exception block?
Below lets you create a breakpoint when an error is raised then you can resume to the line giving the error This is just to help you find your error line - use catch/try/end try otherwise
To debug remove your try, catch, end try then...
' <<Your code goes here>>' at end of function/sub add...
MsgBox Error, vbCritical, CStr(Erl) + " " + CStr(Err)
Resume 'quit_proc'< Note the comment before quit_proc. Put breakpoint at Resume line (F9) then when hit, step (F8) through to the line giving the error'Remove the 'comment before quit_proc when not debugging or else you will get in a loop if any error is raised or (better) revert to your Try, Catch, End Try construct
Although I do not use Crystal Reports these days again, because I use RDLC reports within Visual Studio.
When I was using Crystal Report in those days, I know they also have field for Image (blob), you can use this to print the picture of the employees.
In RDLC reports that I now use, I did something like that and each staff's picture comes out on the pay slip.
What you can do is to add an image/blob field to your employee table and capture their picture with their basic details at employee information setup, which you can link when reporting. Some people may want to save employee pictures on physical disk, this will be rowdy to me and it is not very safe.
Try image/Blob field in your table and when saving the picture, convert it to bytes. It will be shown in Crystal Report or RDLC, just ensure you bind the column to Crystal Report Blob/Image field.
Hi to all, I need to write inside a file located in a folder of my account in google drive and I wrote a desktop application in VB.net using Google Driver API v3. Since that me and my friend use the same account in different PC with the same VB.net application that I wrote, I need your help to to check if that file is opened by another user to avoid opening and garantee an "exclusive opening" on it.
I dont' know if google drive as an option to set an "exclusive opening" instead of API.
Maybe I can set permission to "read only" on the file when is opened by my application but I think it is not a good thing because if my application crashes (for example for a blackout) my file remain in read only state for always.
That's my routine that make a connection on my Google drive with my credentials, search for my folder and my file and give me back their ID:
Public Sub GoogleDrive()
Dim credential As UserCredential
Dim ID_Folder As String = ""
Dim ID_File As String = ""
Using Stream = New FileStream("credenzials.json", FileMode.Open, FileAccess.Read)
'The file token.json stores the user's access and refresh tokens, and is created
'automatically when the authorization flow completes for the first time.
Dim credPath As String = "token.json"
credential = GoogleWebAuthorizationBroker.AuthorizeAsync(
New FileDataStore(credPath, True)).Result
Console.WriteLine("Credential file saved to: " + credPath)
'Create Drive API service.
Dim Service = New DriveService(New BaseClientService.Initializer() With
.HttpClientInitializer = credential,
.ApplicationName = ApplicationName
' Define parameters of request.
Dim findrequest As FilesResource.ListRequest = Service.Files.List()
findrequest.PageSize = 10
findrequest.Fields = "nextPageToken, files(id, name)"
findrequest.Spaces = "drive"
Dim listFolder As Data.FileList = findrequest.Execute()
If listFolder.Files.Count > 0 Then
For Each item In listFolder.Files
If item.MimeType = "application/vnd.google-apps.folder" Then
If item.Name = "MyFolder" Then
ID_Folder = item.Id.ToString
If item.MimeType = "application/msaccess" Then
If item.Name = "myFile.mdb" Then
ID_File = item.Id.ToString
If (ID_File <> "") And (ID_Folder <> "") Then
'How check if ID_File is opened by an other user ?
Catch ex As Exception
Can someone help me ?
Last Visit: 31-Dec-99 18:00 Last Update: 4-Jul-22 11:10