Πώς να χρησιμοποιήσετε SetDIBits σε VB.NET

VB.Net είναι μια γλώσσα προγραμματισμού που αναπτύχθηκε και διανέμεται από τη Microsoft . VB.Net θεωρείται μια αναβάθμιση για το κλασικό της Microsoft Visual Basic γλώσσα προγραμματισμού . VB.Net δημιουργεί όλα τα είδη των προγραμμάτων, συμπεριλαμβανομένης της επιφάνειας εργασίας , καθώς και online εφαρμογές . VB.Net προγραμματιστές εργάζονται με και να χειριστεί τα γραφικά και πληροφορίες bitmap . Η λειτουργία SetDIBits είναι μια λειτουργία που λειτουργεί με pixel σε bitmap αρχεία γραφικών . Χρησιμοποιώντας τη λειτουργία SetDIBits απαιτεί την κατανόηση της γνώσης του VB.Net προγραμματισμού . Οδηγίες
Η

1 Ανοίξτε το Visual Studio . 2

Κάντε κλικ στο " Αρχείο ", ακολουθούμενο από το "Project ".
Εικόνων 3

Επιλέξτε " Visual Basic Project " στο παράθυρο διαλόγου και, στη συνέχεια κάντε κλικ στο κουμπί " OK " . Αυτό που φέρνει στο περιβάλλον προγραμματισμού VB.Net .
Η

4 Κάντε κλικ στο κουμπί "Project ", ακολουθούμενο από το " Προσθήκη Module ", το οποίο θα βρείτε στην κορυφή της σελίδας . Αυτό θα εισαγάγετε μια λειτουργική μονάδα κώδικα στο έργο σας VB
5

Πληκτρολογήστε ή αντιγράψτε και επικολλήστε το ακόλουθο τμήμα κώδικα στη λειτουργική μονάδα κώδικα : .

» Προετοιμάστε την περιγραφή bitmap
.

wid = Picture1.ScaleWidth

hgt = Picture1.ScaleHeight

Με bitmap_info.bmiHeader

. biSize = 40

. biWidth = wid

' Χρησιμοποιήστε αρνητικές ύψος για να σαρώσετε πάνω προς τα κάτω .

. biHeight = - hgt

. biPlanes = 1

. biBitCount = 32

biCompression = BI_RGB

bytes_per_scanLine = ( ( ( ( biWidth * biBitCount ) + 31 ) _

\\ 32 ) * 4 . ).

pad_per_scanLine = bytes_per_scanLine . - ( ( ( . biWidth * _

. biBitCount ) + 7 ) \\ 8)

. biSizeImage = bytes_per_scanLine * Abs ( . biHeight )

End With

' Φορτώστε τα δεδομένα του bitmap του .

ReDim pixels ( 1 έως 4, 1 Για να wid , 1 να hgt )

GetDIBits Picture1.hdc , Picture1.Image , _

0 , HGT , pixels ( 1 , 1 , 1 ) , _

bitmap_info , DIB_RGB_COLORS

« Τροποποίηση των pixels .

Για Υ = 1 Για να hgt

Για Χ = 1 Για να wid

« Κάντε το μαύρο pixel .

pixels ( pixR , X , Y) = 0

pixels ( pixG , X , Y ) = 0

pixels ( pixB , X , Y) = 0

Εάν ( ( X \\ 20 ) Mod 2 ) <> ( ( Y \\ 20 ) Mod 2 ) Στη συνέχεια,

« Ρύθμιση του χρώματος pixel .

pixels ( clr , X , Y) = 255

End If

Επόμενο X

Επόμενη Y

'Εμφάνιση το αποτέλεσμα .

SetDIBits Picture1.hdc , Picture1.Image , _

0 , HGT , pixels ( 1 , 1 , 1 ) , _

bitmap_info , DIB_RGB_COLORS

Picture1.Picture = Picture1.Image
Η
εικόνων