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 impression 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, ou utilisez le motif fourni par le système Windows (tel que c:/windows/Tiles .bmp) , transférez-le dans 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 implémenté via le sous-programme Backpict(). Quelle que soit la taille du motif ou du formulaire, le programme peut ajuster automatiquement la taille du contrôle de grille, la taille des cellules de la grille et le nombre de cellules. 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 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 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 (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()
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émontrer différents modèles d'ombrage
PrivateSubSSCommand2_Click()
"Deux motifs de fond démontrent alternativement
Ifpictfile=filePath&"Pict1.bmp"Alors
pictfile="c:/windows/Tiles.bmp"
Autre
pictfile=filePath&"Pict1.bmp"
FinSi
Rétro-image (fichier image)
FinSub->