Dans le processus de développement de logiciels, afin d'améliorer le degré de commercialisation des logiciels, nous pensons que la beauté de l'interface est un facteur important dans le succès d'un logiciel. Nous avons soigneusement étudié certains logiciels commerciaux à succès. peut voir Oui, l'arrière-plan de la fenêtre du programme peut afficher de très beaux motifs en trois dimensions. Lorsque vous utilisez Visual Basic 3.0 ou 4.0 pour la conception de formulaires, si vous suivez uniquement les fonctions fournies par le système, vous ne pouvez choisir qu'une seule couleur parmi un nombre limité de couleurs ou utiliser un programme pour tracer des lignes simples. Si vous souhaitez obtenir un motif de texture avec une forte sensation tridimensionnelle, vous ne pouvez généralement utiliser que l'attribut PICTURE du formulaire pour appeler le fichier bitmap. L'utilisation de cette méthode présente de nombreux inconvénients. L'un d'entre eux est la taille du formulaire. est limité par la taille du bitmap, et il est difficile à ajuster, n'a pas de polyvalence et de flexibilité, le second est un gaspillage de ressources, car le motif est fondamentalement un motif répétitif et utilise un bitmap de la même taille que celui-ci. la forme est un gaspillage.
Ce qui suit présente une méthode pour implémenter des modèles d’arrière-plan de formulaire. Créez un contrôle de grille sur le formulaire, définissez les lignes de la grille pour qu'elles soient invisibles, supprimez les lignes et les colonnes fixes et utilisez un programme pour que le contrôle de grille ait la même taille que le formulaire et modifiez-le à mesure que la taille du formulaire change. Concevez ensuite un motif pour former un fichier bitmap BMP (le programme de cet article utilise le fichier Pict1.bmp) ou interceptez un motif à partir d'autres images. Vous pouvez également utiliser le motif fourni par le système Windows (tel que c:windowsTiles. bmp) pour appeler le champ Image. Définissez chaque unité de la grille pour qu'elle ait la même taille que le motif, de sorte que le nombre d'unités couvre simplement tout l'arrière-plan du formulaire, puis affichez le motif dans toutes les unités. Le processus ci-dessus est réalisé via le sous-programme Backpict(), quelle que soit la taille du motif ou la taille de la fenêtre.
Le programme peut ajuster automatiquement la taille du contrôle de la grille, la taille des unités de grille et le nombre d'unités. Le programme a été débogué avec succès sur VisualBasic4.0.
1. Créez un nouveau formulaire Form1 avec les propriétés suivantes :
Caption="Réalisation des motifs 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 Lorsque le programme est en cours d'exécution, placez-y le motif de base du motif d'arrière-plan et les propriétés sont.
Visible=Faux (invisible)
Autosize=True (ajuste automatiquement la taille)
4. Ajoutez Sheridan3DControls au contrôle, sélectionnez le bouton de commande tridimensionnel SSCommand et créez deux
bouton
SSCommand1.Caption="Quitter"
SSCommand2.Caption="Changer l'arrière-plan" (montre différents modèles d'arrière-plan)
Leur propriété Image peut appeler un motif identique ou différent de celui de l'arrière-plan si vous utilisez le contrôle du bouton de commande ordinaire.
La commande peut également être utilisée, 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 :
DimpictfileAsString`Nom du fichier bitmap
DimFILEPATHAsString`Chemin du fichier
Sous-backpict (fichier pict)
image1.ScaleMode=3
Form1.ScaleMode=3
picture1.Picture=LoadPicture (pictfile)
`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 de cellules sont égales à la taille du motif de base
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 cellules
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()
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.Chemin&""
Autre
filePath=App.Path
FinSi
`Le formulaire affiche initialement un fond composé du motif de base Tiles.bmp
pictfile="c:windowsTiles.bmp"
rétroimage (fichier image)
FinSub
7. Bouton de commande Quitter le programme
PrivateSubSSCommand1_Click()
Fin
FinSub
8. Démontrer différents modèles d'ombrage
PrivateSubSSCommand2_Click()
`Deux motifs de fond démontrent alternativement
Ifpictfile=filePath&"Pict1.bmp"Alors
pictfile="c:windowsTiles.bmp"
Autre
pictfile=filePath&"Pict1.bmp"
FinSi
Rétroimage (fichier image)
FinSub->