Visual Basic 6.0

φόρμα και ένα module

gioklis — Thu, 31 Oct 2019 00:06:29 GMT

έχω μια φόρμα και ένα module, και θέλω όταν τρέχω=run το πρόγραμμα, να φορτώνει -να ξεκινά Από το module πως γίνεται ;

Προσπέλαση και εγγραφή αρχείων ini με VB6

Michelle — Thu, 21 Jul 2005 17:02:46 GMT

Μού έχει χρειαστεί πολλές φορές να κρατάω ρυθμίσεις κάποιου προγράμματος που φτιάχνω σε αρχεία ini αλλά η VB δεν έχει κάποια built in λειτουργία για να αυτό. Είχα βάλει παλιά ενα plugin αλλά ήταν shareware και έληξε και που λεφτά για να το αγοράσω (ήδη το vBulletin στο φόρουμ μου μου κόστισε καμποσο).
Μήπως έχετε υπόψιν κάποιο free και ευχρηστο plugin ή ActiveX control ή οτιδήποτε για αυτή τη λειτουργία?
Να κάτσω να το κάνω μόνη μου δεν το θεωρώ χρήσιμο καθώς δεν είναι πια και τόσες οι ρυθμίσεις που θέλω να κρατήσω για να αξίζει τον κόπο!
Ευχαριστώ εκ των προτέρων!

Πως μπορώ να διασφαλίσω την εγκατάσταση εφαρμογής Vb6 σε ένα & μόνο ΗΥ.. ?

gioklis — Thu, 15 Mar 2018 00:23:35 GMT

Ζητώ την βοήθεια σας …… , έχω φτιάξει ένα προγραμμα που ουσιαστικά κάνει backup όποια αρχεία επιλέξει ο χρήστης από τον υπολογιστή του .. αυτό που θέλω να διαφυλάξω είναι ότι ό κάθε χρήστης ( όταν αποκτήσει την εφαρμογή, είτε με χρήματα είτε δωρεάν ) να μπορεί να κάνει μια μόνο εγκατάσταση σε ένα ΗΥ. Δεν έχω ιδέα με ποιο τρόπο μπορώ να το πετύχω αυτό …. ? μπορεί να βοηθήσει κάποιος ???????

Υπάρχει εντολή σε VB6 να μου δίνει την mac address του υπολογιστη ?

gioklis — Sat, 09 Jul 2016 19:25:47 GMT

Γνωρίζει κάποιος … αν υπάρχει εντολή σε VB6, να μπορώ να εμφανίσω σε ένα text box την mac address του υπολογιστη που είμαι συνδεδεμένος

Και πως συντάσσεται ?

Ευχαριστώ.

VB 6 + Consume .NET DLL = Διαφορετικό Barcode

Harkon — Thu, 06 Jun 2013 06:46:06 GMT

Καλησπέρα σας,

υπάρχει μια παλιά εφαρμογή που έχω γράψει σε VB6. Αργότερα αναπτύχθηκε μια συμπληρωματική εφαρμογή σε C# για PDA. Σε κάποιο σημείο χρειάζεται η ανάγνωση και παραγωγή ετικετών με barcode font (σε CODE 128). Για κάποιον λόγο (αυτό το δέχομαι "as is" πιστεύω δε θα έπρεπε να είναι πρόβλημα), περνάει το string του barcode μέσα από μια function που μεταλλάσσει τους χαρακτήρες σε ένα διαφορετικό string προκειμένου αυτό να είναι αναγνώσιμο από τον barcode scanner (barcode font).

Π.χ.

BARCODE: 35A0140871301030000230

BARCODE Μετά την function: à Ñ35AÌ!Hw-!# 7Í0~Ó

Μου έδωσαν λοιπόν το ένα .dll που περιείχε την function, το έκανα import στην VB6 εφαρμογή μου (μέσω regasm) αλλά το αποτέλεσμα μετά την χρήση της function δεν είναι το ίδιο. Είναι πολύ παρόμοιο αλλά όχι ακριβώς το ίδιο (πχ στο παραπάνω παράδειγμα δεν έχει το "σκουλικάκι" πάνω από το Ν) κι επομένως δεν διαβάζεται από τον Barcode scanner.

Έχει κανείς κάποια ιδέα ως προς τι μπορεί να φταίει γι αυτό και να με κατευθύνει;

Ευχαριστώ

Εύρεση ονόματος στοιχείου ελέγχου

ChrisGT7 — Mon, 17 Dec 2012 17:42:09 GMT

Με τον παρακάτω κώδικα βρίσκω την κλάση που ανήκει ένα στοιχείο ελέγχου καθώς περνάει ο κέρσορας του ποντικιού από πάνω του:

Public Declare Function GetCursorPos Lib "user32" _
    (lpPoint As POINTAPI) As Long
Public Declare Function WindowFromPoint Lib "user32" _
    (ByVal xPoint As Long, ByVal yPoint As Long) As Long
Public Declare Function GetClassName Lib "user32" Alias "GetClassNameA" _
    (ByVal hwnd As Long, ByVal lpClassName As String, ByVal nMaxCount As Long) As Long

Type POINTAPI
X As Long
Y As Long
End Type

Private Sub Tmr_Timer()
    GetCursorPos mousePT
    X = mousePT.X
    Y = mousePT.Y

    curWindow = WindowFromPoint(X, Y)
    If curWindow <> prevWindow Then
        className = String$(256, " ")
        prevWindow = curWindow
        retValue = GetClassName(curWindow, className, 255)
        className = Left$(className, InStr(className, vbNullChar) - 1)
        Me.Caption = className
        If className <> "ThunderRT6UserControlDC" Then
            For I = 0 To 8
                If Bttn(I).Value Then
                    Cmd(I).ZOrder
                    Exit For
                End If
                Cmd(11).ZOrder
            Next
        End If
    End If
    DoEvents
End Sub

Μπορείτε να με βοηθήσετε ώστε να μπορώ να βρίσκω το όνομα του control με κάποια αντίστοιχη συνάρτηση API πού φέρνει τα στοιχεία του ελεγκτηρίου;

Αυτό που θέλω να κάνω είναι καθώς περνάει το ποντίκι πάνω από κάποιο control να εκτελείται ο επιθυμητός κώδικας.

VB6 - Windows 7 - Clipboard

Than — Fri, 23 Nov 2012 16:48:59 GMT

Την καλημέρα μου σε όλους.

Έχουμε μια εφαρμογή γραμμένη σε VB6 η οποία όταν τρέχει σε Windows 7 ή Server 2008 πολύ συχνά, όχι πάντα όμως, μπλοκάρει τον Clipboard. Τι Ctrl + V, τι δεξί κλικ + Copy να κάνεις, Paste δεν θα καταφέρεις να κάνεις με τίποτα σε οποιοδήποτε πρόγραμμα τρέχει εκείνη τη στιγμή. Μόλις κλείσει η συγκεκριμένη εφαρμογή, η λειτουργία του Clipboard επανέρχεται κανονικά. Σε Windows XP ή Server 2003 το πρόβλημα δεν παρουσιάζεται ποτέ των ποτών.

Επειδή υπήρχαν ορισμένα (σκοτεινά!!) σημεία στον κώδικα που έκαναν χρήση του Clipboard, θεωρήσαμε στην αρχή ότι εκεί ήταν η ρίζα του προβλήματος. Αποφασίσαμε λοιπόν να ξηλώσουμε από παντού τον Clipboard. Το κάναμε (και είμαστε πολύ χαρούμενοι γι' αυτό), αλλά το πρόβλημα παραμένει.

Έχοντας φάει μερόνυχτα στο Internet ψάχνοντας για το συγκεκριμένο θέμα έχω βρει πολλά posts που διαμαρτύρονται σχετικά με αυτό το πρόβλημα. Άλλοι λένε ότι φταίνε κάποια optimazition προγράμματα που επεμβαίνουν στον Clipboard (πχ IOBIT), κάποιο plugin (πχ Skype...) και διάφορα τέτοια. Ακόμα και για το locale των windows διάβασα κάτι. Στη δική μας περίπτωση όμως δεν ισχύει κανένα από τα παραπάνω.

Σας έχει τύχει τίποτα παρόμοιο και αν ναι πως το αντιμετωπίσατε;

Ευχαριστώ πολύ!

VB6 - The legend lives on...

Markos — Fri, 31 Aug 2012 03:06:11 GMT

Παρατηρώντας τον Programming Community Index, διαπιστώνει κανείς τις αντοχές που έχει αυτή η γλώσσα. Κάνοντας λίγο googling έπεσα πάνω σ' ένα topic με τίτλο "Why VB6 Still Thrives". Από 'κει πληροφορήθηκα ότι η Microsoft επέκτεινε τον χρονικό ορίζοντα υποστήριξης εφαρμογών γραμμένων σε VB6 στα λειτουργικά της συστήματα (πρωτότυπη πηγή: "Old soldiers never die"). Για όποιον ενδιαφέρεται, υπάρχει ένα site με tutorials και resources που μπορεί να του φανούν χρήσιμα (vb6.us).

Δημιουργία καρτέλας είδους για POS σύστημα

ChrisGT7 — Sun, 06 Nov 2011 19:31:22 GMT

Καλή σας ημέρα! :)

Ασχολούμαι με την Visual Basic 6 ως χόμπυ και έχω ξεκινήσει να φτιάχνω μια POS εφαρμογή (Point Of Sales - Εφαρμογή διαχείρισης πελατών, προμηθευτών, εμπορευμάτων κτλ). Θα ήθελα μια βοήθεια στο πώς θα παρουσιάσω τις καρτέλες π.χ. εμπορευμάτων, πελατών κ.ο.κ.

Όταν λέω "καρτέλα εμπορευμάτων" εννοώ ένα ιστορικό (κατάσταση εκτύπωσης) για την κίνηση του συγκεκριμένου είδους (αγορά, πώληση). Δηλαδή εμφανίζονται τα παρακάτω στοιχεία:

04/04/2011 | ΔΑΤ 100 | ΠΛΑΙΣΙΟ Α.Ε.| 1 | 0 | 100,00 | 5

06/04/2011 | ΔΑΤ 500 | ΑΝΤΩΝΗΣ Α.Ε.| 0 | 3 | 200,00 | 2

Την παραπάνω εκτύπωση έχω σκεφτεί να την εμφανίζω σε ένα ListView ώστε ο χρήστης να μπορεί να κάνει διπλό κλικ πάνω σε ένα παραστατικό και να βλέπει μετά τα στοιχεία της αντίστοιχης συναλλαγής.

Υπάρχει τρόπος με μια πρόταση SQL να δημιουργήσω την τελευταία στήλη (Υπόλοιπο), της οποίας το κάθε κελί ισούται με το άθροισμα του υπολοίπου της προηγούμενης γραμμής με το κελί της εισαγωγής μείον της εξαγωγής για να βρεθεί το τρέχον υπόλοιπο του εμπορεύμετος στην αποθήκη;

Ή θα πρέπει να ξανασαρώσω από την αρχή όλο το ListView κάνοντας για το κάθε κελί του Υπολοίπου την παραπάνω πράξη με μια For... Next εντολή;

Απόφυγα να χρησιμοποιήσω ένα DataReport για να μπορεί ο χρήστης να έχει μια δυναμική επαφή με τις συναλλαγές και να μπορεί να δει από την παραπάνω εκτύπωση τα στοιχεία της.

Αν έχετε να μου προτείνετε κάτι διαφορετικό (και πολύ πιθανόν πιο εύκολο) για την δημιουργία μιας τέτοιου είδους εκτύπωσης, θα ήμουν ευγνώμων.

Σας ευχαριστώ.

"Invalid call procedure" σε vbscript .

mart — Fri, 16 Sep 2011 00:22:03 GMT

Καλησπέρα.

Έχω το παρακάτω script και το παρακάτω λάθος.
Γενικότερα είμαι άσχετος από vb και σχετικός με προγραμματισμό, κυρίως web.

_______________________________________________________

Option Explicit

Dim objFso, objFolder, objWMI, objItem, objShell, strEventLog
Dim strFile, strComputer, strFolder, strFileName, strPath
Dim intEvent, intNumberID, intRecordNum, colLoggedEvents

' ---------------------------------------------
' Set the folder and file name
' Set numbers
intNumberID = 10 ' Event ID Number
intRecordNum = 0

strComputer = "."
strFileName = "\Event" & intNumberID & ".txt"
strFolder = "c:\logs\eventlog"
strPath = strFolder & strFileName
strEventLog = "'System' "

' ---------------------------------------------
' Section to create folder and hold file.
Set objFso = CreateObject("Scripting.FileSystemObject")
If objFSO.FolderExists(strFolder) Then
Set objFolder = objFSO.GetFolder(strFolder)
Else
Set objFolder = objFSO.CreateFolder(strFolder)
Wscript.Echo "Folder created " & strFolder
End If

Wscript.Echo " Press OK and Wait 30 seconds (ish)"
Set strFile = objFso.CreateTextFile(strPath, True)
Set objWMI = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" _
& strComputer & "\root\cimv2")
Set colLoggedEvents = objWMI.ExecQuery _
("Select * from Win32_NTLogEvent Where Logfile = " & strEventLog)

' -----------------------------------------
' Next section loops through ID properties

For Each objItem in colLoggedEvents
If objItem.EventCode = intNumberID Then

' Second Loop to filter only if they tried Administrator
strFile.WriteLine("Category: " & objItem.Category _
& " string " & objItem.CategoryString)
strFile.WriteLine("ComputerName: " & objItem.ComputerName)
strFile.WriteLine("Logfile: " & objItem.Logfile _
& " source " & objItem.SourceName)
strFile.WriteLine("EventCode: " & objItem.EventCode)
strFile.WriteLine("EventType: " & objItem.EventType)
strFile.WriteLine("Type: " & objItem.Type)
strFile.WriteLine("User: " & objItem.User)
strFile.WriteLine("Message: " & objItem.Message)
strFile.WriteLine (" ")
intRecordNum = intRecordNum +1
End If
Next

' Confirms the script has completed and opens the file
Set objShell = CreateObject("WScript.Shell")
objShell.run ("Explorer" &" " & strPath & "\" )

WScript.Quit
_______________________________________________________

Όταν τρέχω το script μου εμφανίζει το παρακάτω μήνυμα:

Line: 58
Char:1
Error: Invalid procedure call or argument
Code: 800A0005
Source: Microsoft VBScript runtime error

Όταν εξαιρώ την γραμμή, όπως φένεται και παρακάτω, το script "τρέχει" κανονικά.
......
'strFile.WriteLine("Message: " & objItem.Message)
.....

Το script "τρέχει" σε Windows 2003 Server R2 SP2.

Το ζητούμενο είναι να μαζέυω σε αρχείο txt ή csv όλα τα events με event id 10 μαζί με την περιγραφή από τον event viewer.

Ευχαριστώ πολύ.

MultiThread και Threads Απορια

ntaryl — Fri, 29 Jul 2011 03:16:18 GMT

Καλησπερα
Εδω και καμποσο καιρο παιδευομαι με το να φτιαξω ενα Multithread Socket Server (VB6)
Το εχω παρει κατι σαν στοιχημα με τον εαυτον μου ως που θα το φτασω .
Χρησιμοποιω την createThread ,Socket api και ως ωρας μπορω να πω με μεγαλη ευχαριστηση εχω δημιουργησει τα παρακατω
Τρεχοντας την εφαρμογη τρεχει το Mainthread με επιτυχια.Τρεχει και το ListenThread ακουει κανονικα και περιμενει συνδεσεις .
Τωρα για καθε Client ανογει και ενα νεο Thread(WorkThread)οπου περναει σαν παραμετρο το AcceptHandle .
Ως εδω ολα καλα
Οταν ομως συνδεω για παραδειγμα 10 Clients ανοιγει με επιτυχια 10 Threads .Μπορω ομως να στειλω δεδομενα μονο απο τον τελευταιο συνδεδεμενο Client (10)
Υποπτευομαι οτι το προβλημα ειναι στην υλοποιηση του παραδειγματος .
Διαβαζοντασ μερικα κομματια στο Net καταλαβα οτι πρπει να χρησιμοποιησουμε και την Selct για να τσεκαρουμε τα sockets
Αν γνωριζει κανεις κατι ας το αναφερει
Καλο βραδυ

Recv Function σε NoBlockingMode και Κρασαρισμα

ntaryl — Wed, 20 Jul 2011 03:00:40 GMT

Καλησπερα

Προσπαθω να τελειωσω το Multithread παραδειγμα που εχω αρχισει .

Οταν αφηνω τα Sockets σε Blocking Mode τοτε με επιτυχια περναω το Accept Handle σε ενα νεο thread(Workthread)

Και στελνω με επιτυχια δεδομενα.

Μολις αλλαξω σε NoblockingMode

Dim NonBlock As Long 
 NonBlock = 1 
 If ioctlsocket (nRet, FIONBIO, NonBlock) = SOCKET_ERROR Then 
 WriteLog "Socket Cannot Set NoBlocking" 
 End If
Ο Client συνδεεται κανονικα ανοιγει το νεο Thread και με το που περναει στην Recv Κρασσαρει εδω  ReadBuff = Left$(ReadBuff, sRec)
Ο παρακατω κωδικας που επισυναπτω ειναι η υλοποιηση του workthread 1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 Public Function Workthread (ByVal Param As Long) As Long 
 Const MAX_BUFFER_LENGTH As Long = 8192 'Normal = 8192' MAX = 65536 
 Dim Buffa (1 To MAX_BUFFER_LENGTH) As Byte 
 Dim dBuff As String 
 Dim ReadBuff As String 
 Dim sRec As Long 
 tID = GetCurrentThreadId 
 Add_DataClientStore ClientCount, nRet, tID''/ / Store Data in a public type (sockid, threadid) 
 WriteLog "New Client Arrive with Socket ID" & nRet & "On Thread ID:" & tID''/ / write data to listbox 
 Do''While True 

 ClientStore (ClientCount). Sock_ID = nRet 
 sRec = recv (ClientStore (ClientCount). Sock_ID, Buffa (1), MAX_BUFFER_LENGTH, 0 &) 
 ReadBuff = StrConv (Buffa, vbUnicode) 
 dBuff = Left $ (ReadBuff, sRec) 
 WriteLog "Data Received.:" & DBuff & "Socket ID ..." & ClientStore (ClientCount). Sock_ID 
 End If 
 Loop 
 End Function
Αν μπορει καποιος να μου πει γιατι κρασαρει εδω ?

καλο Βραδυ   

Υ.γ : Οποιαδηποτε συμβουλη δεκτη .Ειμαι  πρωταρης σε threads

WSARecv και Recv Ερωτηση

ntaryl — Thu, 30 Jun 2011 02:25:40 GMT

The old Function Recv
Use it like (Recv (Sock, Read_Buffer, 1024, 0 &)
but now i want someone help me how to call the WsaRecv
it has 7 parameters and i no want to use Ovelapped ...
Want to use it Like simple Recv

Thanks for the time

Καλησπερα

Χρησιμοποιω την Recv ( Sock, Read_Buffer, 1024, 0&)συνταξη

Τωρα ομως θελω καποιος να με βοηθησει και να μου πει πως θα καλεσω την WsaRecv

Εχει 7 παραμετρους και δεν θελω να χρησιμοποιησω Overlapped .

Θελω να την χρησιμοποιησω σαν την Recv

Αυτη η function με μπερδευει πολυ

Γαμωτο

Καλο απογευμα

MultiThread και Visual basic 6.0

ntaryl — Wed, 01 Jun 2011 06:39:18 GMT

καλησπερα
Παιδια εδω και αρκετο διαστημα προσπαθω να φτιαξω μια client-Server εφαρμογη που το Server κομματι να ειναι Full MultiThread
Ψαχνοντας και διαβαζοντας σχετικα με αυτο το θεμα εβρισκα οτι η Visual basic δεν υποστηριζει Threads .
Υπαρχει καποιος τροπος για Multithreading με την χρηση καποιου Com(commercial(ThreadFactory,AsyncThread).Υπαρχει και η χρηση Activex αυτο δεν ειναι ακριβως MultiThreading .
Δοκιμασα το Async Thread αλλα δεν εμεινα ευχαριστημενος αφου με ενδιεφερε να μην υπαρχει extra αρχειο εκτος απο το Main.
Τελικα με αρκετο ψαξιμο μπορεσα να Χρησιμοποιησω την CreateThread

Επισυναπτω μερικα Scrennshots

Το παραδειγμα δεν εχει τελειοποιηθει ακομα .
1)
Μπορει να δει κανεις την δημιουργια 53 Threads Χρησιμοποιειτε ProcessExplorer
51 =New Clients
1=Main thread
2 =Listening Thread

2)Μπορουμε να δουμε
1000 Client Threads
1=Main thread
2 =Listening Thread

Υ.γ =Ειναι δοκιμασμενο σε Xp sp3

ΑΥΤΑ ΕΙΝΑΙ ΝΕΑ!!!

Markos — Sat, 21 May 2011 00:09:24 GMT

Το CodeProject αργεί να στείλει κάτι τέτοια, αλλά στο τέλος τα καταφέρνει!! Σήμερα μου ήρθε το mail. Δεν γράφω τίποτα για να μη χαλάσω την έκπληξη. Απλά κάντε κλικ...

CreateObject και Socket Συνδεση

ntaryl — Sat, 26 Feb 2011 07:29:05 GMT

Καλησπερα

Παιδια πειραματιζομαι στο να φτιαξω ενα παραδειγματακι που αποτελειται απο ενα main Κομματι που εχει ενα winsock.ocx και μπορει να κανει Listen σε ενα συγκεκριμενο port. Το συγκεκριμενο ενσωματωνει και καποια προσθετα plugins(χρησιμοποιωντας την Createobject).

Ακομα υπαρχει το προσθετο(plugin)που συνδεεται αυτοματα στο main κομματι.Στο προσθετο υπαρχει ενα κουμπι με το οποιο στελνω δεδομενα .

Το ολο ζητουμενο ειναι .Αφου τρεχω το main Κομματι και κανω listen σε ενα port κανω Load το προσθετο απο το menu πανω αριστερα και πατωντας Send απο το προσθετο τοτε αυτο στελνει Δεδομενα στο Client κομματι που εχει συνδεθει απο πριν με το main κομματι

Μπορει καποιος να βοηθησει

Επισυναπτω το παραδειγμα

ImageList Απορια

ntaryl — Wed, 05 Jan 2011 06:39:29 GMT

καλησπερα

Τελικα το προβλημα με το να καλεσω καποια Res(gif) απο ενα dll και να τα φορτωσω σε ενα picturebox το καταφερα

Μπορει καποιος να μου πει πως μπορω να εισαγω καλυτερα τα δεδομενα στο imagelist ετσι να εχωδυνατοτητα επεξεργασιας αργοτερα ?

Το ζητουμενο ειναι να μπορω να τα χρησιμοποιω χωρις προβλημα ..

Στο συγκεκριμενο παραδειγμα που πειραματιζομαι αποτελειται απο ενα dll με τα gif και απο ενα main στο οποιο υπαρχει ενα imagelist,Picture,Listview.Eισαγω την καθε Gif απο το picture μεσα στο imagelist χρησιμοποιωντας

Form1.img.ListImages.Add(, , Form1.Flag.Picture)

Πως μπορω να χρησιμοποιησω τα items απο το imagelist και να τα εισαγω μεσα στο listView.Το καθε Item μπορει να χρησιμοποιηθει παραπανω απο μια φορα ...

Επισυναπσα το παραδειγμα .Αν μπορει καποιος να του ριξει μια ματια

καλο βραδυ

Load Gif from Dll(res)

ntaryl — Mon, 27 Dec 2010 08:50:49 GMT

καλημερα και χρονια πολλα

Πειραματιζομαι αυτες τις μερες με το να φτιαξω ενα dll με resourse(Gif)και να μπορω να το καλω απο το κεντρικο προγραμμα .

Το αντιστοιχο το υλοποιησα με τα resourse να ειναι αποθηκευμενα μεσα στο κεντρικο πρoγραμμα .Δουλεψε κανονικα χωρις προβλημα.

Δεν θελω να χρησιμοποιησω το dll σαν Referense αλλα να το καλεσω απο οπουδηποτε και να μπορω να εμφανισω τα Gif ..

Θα ηταν καλυτερο να τα ειχα αποθηκευσει σαν BMP και αφου τα επαιρνα στο κεντρικο να τα εκανα convert σε gif,jpg ?

Υ.Γ Στο Dll ειναι απο8ηκευμενες σημαιες απο διαφορες χωρες και οταν καλειται to Dll η αντιστοιχη σημαια εισαγετε σε ενα listView

καλο βραδυ

Declare Functions from DLL with Types

γιωργος μπακογιαννης — Mon, 03 Jan 2011 17:45:13 GMT

Καλημέρα και χρόνια πολλά και καλή χρόνια σε όλους με υγεία.

Θα μπορώ αμέσως στο θέμα μου. Έχω ένα xxx.dll (με το xxx.h και με το xxx.lib) που έχει 4 typedef (6 type κατά το μέγιστό) και 4 βασικές functions (αλλά είναι σχεδόν ίδιες). Θέλω να τις καλώ από την VBA 6.3 που έχει η MS ACCESS 2000 αλλά δεν γνωρίζω καλά πους γίνεται η μετατροπή. Παλιότερα είχα κάνει αυτή τη μετατροπή του συγκεκριμένου dll σε DELPHI με επιτυχία.

Τώρα να πω τη θέλω:

1. Να του δώσω τα σχετικά αρχεία σε όποιον ενδιαφέρει να με βοηθήσει ώστε να γίνει η μετατροπή.

2. Να γίνει αυτή η εργασία με πληρωμή.

3. Ο χρόνος της μετατροπής δεν είναι πιεστικός.

4. Αλλά να ξέρω ότι μπορεί να γίνει η μετατροπή.

Τώρα να πω δεν θέλω:

1. Να δώσω στοιχεία αυτό το dll δημόσια. Όχι ότι είναι και κάτι σημιτικό

2. Αυτό που θα κάνει την εργασία με μην πληρωθεί.

3. Τέλος ΔΕΝ θέλω να ασχοληθεί άλλο με αυτό. (μου έχει «σπάσει» υα νεύρα)

Επίσης έχω όλα τα σχετικά αρχεία που μπορεί να χρειαστούν.

Γιώργος Μπακογιάννης

Εφαρμογη και Κινεζικα

ntaryl — Mon, 20 Dec 2010 07:36:57 GMT

καλήσπερα παιδια
Εχω ενα παραδειγμα το οποιο εμφανιζει στα (Commands,Labels etc)κανονικα τα Αγγλικα και τα Ελληνικα(αναλογα την επιλογη Γλωσσας.
Μπορει καποιος να μου πει τι χρειαζεται για να το φτιαξω να υποστηριζει και Γλωσσα οπως(Κινεζικα,Ρωσικα).
Ευχαριστω πολυ

Αρχεια και Φακελοι

ntaryl — Sun, 19 Dec 2010 07:13:03 GMT

Καλημερα παιδια

Εχω ενα φακελο με ονομα (Τεστ)και μεσα ενα εκτελεσιμο .

Μπορω με την (App.Path + "\Τεστ\εκτελεσιμο.εχε" να παρω το εκτελεσιμο αλλα δεν ξερω πως να παρω το ονομα ενος αρχειου που δεν ειναι στο φακελο αλλα βρισκεται καπου αλλου

Για παραδειγμα 2 Φακελους πισω απο εκει που ειμαστε

Προσπαθησα να το εξηγησω οσο πιο απλα

καλο βραδυ

Refresh Ping Items

ntaryl — Fri, 19 Nov 2010 08:12:04 GMT

καλησπερα παιδια

Προσπαθω να φτιαξω ενα παραδειγματακι στο οποιο για καθε adress(item) να κανω Ping και να μου δινει το νουμερο στο τελυταιο items.

Το συγκεκριμενο νουμερο δεν ειναι παντα το ιδιο γι αυτο θελω να κανω τσεκαρισμα του item(ping)και ανα τακτα χρονικο διαστημα(1000)ms να μου δινει το νεο νουμερο

αυτο το καταφερα με ενα timer ολα καλα ως εδω....

Οταν το listview εχει πανω απο 1 item και ο timer δουλευει τοτε σε καθε refresh του timer τα Δεδομενα παιρνουν οτι εχει και η τελευταια .Δηλαδη αν η τελευταια εχει 30 ms τοτε ολες θα εχουν το ιδιο ..

Μπορει καποιος να με βοηθησει σε αυτο

Ευχαριστω πολυ και καλο βραδυ

Επισυναπτω το παραδειγμα να δειτε τι ενοω

Plugins Και Επικοινωνια με Winsock

ntaryl — Sun, 14 Nov 2010 05:38:25 GMT

Καλησπερα

Τις τελευταιες μερες πειραματιζομαι με το παραδειγματακι(Plugins )απο την Sandsprite...

Προσθεσα και ενα module γαι την CreateObject και ειναι μια χαρα..

Τρεχοντας το main φορτωνει τα plugins και απο το μενου διαλεγουμε και εκτελουμε πιο απο τα διαθεσιμα(2) θελουμε ...

Αυτο που θελω ειναι να μου δειξει καποιος πως μπορω να χρησιμοποιησω το winsock ετσι ωστε να μπορει να υπαρχει επικοινωνια του κεντρικου με το plugin....

Ας πουμε οτι το κεντρικο εχει ενα Winsock και συνδεεται στο net ...Αρα και το plugin Οταν φορτωνεται στο Main να μπορει να χρησιμοποιει το

Winsock σαν να ηταν το ιδιο Main.

Ελπιζω να καταλαβατε τι ενοω

ευχομαι σε ολουσ καλο βραδυ

Υ.ΓΕπισυναπτω το παραδειγμα που δουλευεω

Stable MultiThread

ntaryl — Thu, 09 Sep 2010 08:25:27 GMT

Καλημερα

Πραγματικο MultiThreading δεν υποστηριζεται απο την visual basic 6 .Ειναι ασταθες και κρασαρει πολυ συχνα (Ετσι μασ λεγανε)

Στις παλιοτερες εκδοσεις (5) ηταν πιο σταθερο..

Ποιος ομως πιστευει οτι ακομα ισχυει ?

Το συγκεκριμενο παραδειγμα χρησιμοποιει την (unstable) CreateThread .Δοκιμασμενο σε windows XP -sp2 ,W7

Δεν ειναι δικο μου .

First Author =IZero from Slovakia

Modded a bit From Friend (Cobein)make it more stable

xixiiixx

Ποιος λελει οτι δεν ειναι δυνατο

Socket Multithreading και Functions

ntaryl — Sat, 03 Apr 2010 05:12:39 GMT

Καλησπερα

Παλι θα μιλησουμε για Multithreading

Ισως πει καποιος οτι δεν υποστηριζει αλλα τελικα με χρηση καποιου extra Activex ειναι αρκετα ευκολο

Αυτο που θελω να μαθω ειναι την λογικη πισω απο το socket Multithreading

Ανοιγουμε νεο thread και για το Socket που κανει listening ?

Οταν δεχομαστε συνδεσεις σε καθε νεο πελατη ανοιγουμε νεο thread ?

Ανοιγουμε νεο και οταν κανουμε send Receive ?

ευχαριστω πολυ και καλο βραδυ