->Dans le processus de développement d'un logiciel, l'esthétique de l'interface est un facteur important dans la commercialisation du logiciel. Cet article présente une méthode pour réaliser des motifs d'arrière-plan de forme. À cette fin, un magnifique arrière-plan tridimensionnel peut être conçu de manière pratique et flexible. 1. Créez un nouveau formulaire Form1 avec les propriétés suivantes :
Caption="Réalisation du motif de fond"
Borderstyle=3 (pas de boutons maximum et minimum)
2. Créez un contrôle de grille Grid1. Sa position et sa taille seront définies dans le programme (la même taille que Form1), et ses propriétés sont :
Enabled=False (le focus ne tombera pas sur le contrôle de grille Grid1)
Fillstyle=1 (modifier les propriétés du texte de toutes les cellules)
Fixedcols=0 (pas de lignes fixes)
Lignes fixes = 0 (pas de colonnes fixes)
Gridlines=False (les lignes de quadrillage ne sont pas visibles),
Visible=Vrai
3. Créez le contrôle d'image Picture1 et placez-y le motif d'arrière-plan de base lorsque le programme est en cours d'exécution. Les propriétés sont :
Visible=Faux (invisible)
Autosize=True (ajuster automatiquement la taille)
4. Ajoutez Sheridan3DControls au contrôle, sélectionnez le bouton de commande tridimensionnel SSCommand et créez deux boutons :
SSCommand1.Caption="Quitter"
SSCommand2.Caption="Changer l'arrière-plan" (montre différents modèles d'arrière-plan)
Leur propriété Picture peut appeler un motif identique ou différent de celui de l'arrière-plan. Si vous utilisez le bouton de commande ordinaire Control Command, il peut également être utilisé, mais le bouton de commande n'a pas de motif d'arrière-plan.
5. Créez un motif d'arrière-plan formant un sous-programme :
Nom du fichier bitmap de DimpictfileAsString
Chemin du fichier DimFILEPATHAsString
Sous-backpict (fichier pict)
image1.ScaleMode=3
Form1.ScaleMode=3
picture1.Picture=LoadPicture (fichier pict)
'Le contrôle de grille couvre tout l'arrière-plan du formulaire
grille1.Top=-1
grille1.Gauche=-1
grille1.Width=Largeur
grille1.Hauteur=Hauteur
grille1.Cols=Int(Form1.ScaleWidth/picture1.ScaleWidth) 1
grille1.Rows=Int(Form1.ScaleHeight/picture1.ScaleHeight) 1
'Toutes les tailles d'unité sont égales à la taille de base du motif
PourI=0Togrid1.Cols-1
Forj=0Togrid1.Rows-1
grille1.ColWidth(I)=image1.ScaleWidth*15
grille1.RowHeight(j)=image1.ScaleHeight*15
Suivantj
SuivantJe
'Sélectionner toutes les unités
grille1.SelStartCol=0
grille1.SelStartRow=0
grille1.SelEndCol=grid1.Cols-1
grille1.SelEndRow=grid1.Rows-1
grille1.Picture=Picture1.Picture
FinSub
6. Former le programme principal :
PRivateSubForm_Load()
'Obtenir le nom de chemin du programme en cours d'exécution, avec une barre oblique inverse après le nom de chemin
IfRight(App.Path,1)<>"/"Alors
filePath=App.Path&"/"
Autre
filePath=App.Path
FinSi
'Le formulaire affiche initialement un fond composé de motifs de base Tiles.bmp
pictfile="c:/windows/Tiles.bmp"
rétroimage (fichier image)
FinSub
7. Bouton de commande Quitter le programme :
PrivateSubSSCommand1_Click()
Fin
FinSub
8. Démontrez différents modèles d'ombrage : cet article sélectionne l'image Windows Tiles.bmp, les lecteurs peuvent également sélectionner d'autres graphiques qu'ils aiment. Le code est le suivant :
PrivateSubSSCommand2_Click()'Démonstration alternée de deux modèles d'arrière-plan
Ifpictfile=filePath&"Pict1.bmp"Alors
pictfile="c:/windows/Tiles.bmp"
Autre
pictfile=filePath&"Pict1.bmp"
FinSi
Rétro-image (fichier image)
FinSub->
