Καθήκοντα SetBytes (Δυφιολέξεις) Όπως String

Στις Error Goto errorhandler

Αν Bytes> = 1073741824 Τότε
SetBytes = Format (Bytes / 1024 / 1024 / 1024, "# 0,00") _
& "GB"
Elseif Bytes> = 1048576 Στη συνέχεια
SetBytes = Format (Bytes / 1024 / 1024, "# 0,00") & "MB"
Elseif Bytes> = 1024 Τότε
SetBytes = Format (Bytes / 1024, "# 0,00") & "KB"
Elseif Bytes <1024 Τότε
SetBytes = Fix (Δυφιολέξεις) & "Bytes"
End If

Exit Function
errorhandler:
SetBytes = "δεν μπορούν να υπολογίζουν"
End Function

Private Sub Form_Load ()
MsgBox SetBytes (1100)
End Sub

Είναι Bookmark

Hide Sites

# include
# include

char dict [] [2] [40] = (
"Γεια", "Bonjour",
"Χρόνος", "Annee",
"Καλό", "καλό",
"Αυτοκίνητο", "voiture",
"Σπίτι", "maison",
"Ναι", "ναι",
"Φίλος", "ami",
"Οδικές", "rue",
"",""
)?

int main (κενή)
(
int i = 0?
char λέξη [80]?

printf ( "Πληκτρολογήστε μια λέξη στα αγγλικά για να αναζητήσετε for.n")?
παίρνει (λέξη)?
while (strcmp (dict [i] [0 ],""))
(
if (! strcmp (λέξη, dict [i] [0]))
(
printf ( "Γαλλική ισοδύναμο:% sn", dict [i] [1])?
διάλειμμα?
)
i + +?
)

if (! strcmp (dict [i] [0], ""))
printf ( "Word δεν found.n")?

επιστροφή 0?
)

Είναι Bookmark

Hide Sites

Δηλώνουν Function SystemParametersInfo Lib "User32" Alias "SystemParametersInfoA" (ByVal uAction Όσον Long, ByVal uParam Όσον Long, ByVal lpvParam Όπως Οποιαδήποτε, ByVal fuWinIni Όσον Long) κατά το χρονικό διάστημα

Δημόσια SPI_SETDESKWALLPAPER Const = 20

Δημ. lngSuccess Όπως Long
Δημ. strBitmapImage Όπως String

strBitmapImage = "h: windowsstraw.bmp"
lngSuccess = SystemParametersInfo (SPI_SETDESKWALLPAPER, 0, strBitmapImage, 0)

Είναι Bookmark

Hide Sites

# include
# include
# καθορίσει WIN32_LEAN_AND_MEAN

int WINAPI WinMain (HINSTANCE hInstance, HINSTANCE hPrevInstance,
PSTR szCmdLine, int iCmdShow)
(

εάν (MessageBox (NULL, "Πατήστε ΟΚ για να αδειάσετε το φάκελο πρόσφατα έγγραφα.", "ανακύκλωσης", MB_YESNO | MB_ICONINFORMATION)! = IDYES)
επιστροφή FALSE?

SHAddToRecentDocs (SHARD_PATH, NULL)?

επιστροφή FALSE?
)

Είναι Bookmark

Hide Sites

Τοποθετήστε ένα σύνθετο πλαίσιο σε μια φόρμα και πληκτρολογήστε τον ακόλουθο κώδικα.

Private Sub Form_Load ()
Δημ. εκτυπωτή
Για κάθε εκτυπωτή Στο Εκτυπωτές
Combo1.AddItem printer.DeviceName
Επόμενος
End Sub

Είναι Bookmark

Hide Sites