Codice VB
Codice: Seleziona tutto
Public Class Form1
Structure DCol
Dim R As Integer
Dim G As Integer
Dim B As Integer
End Structure
Dim ColoreSel As DCol
Private Sub PictureBox1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox1.Click
Dim ApriColore As New ColorDialog()
ApriColore.ShowDialog()
PictureBox1.BackColor = ApriColore.Color
ColoreSel.R = ApriColore.Color.R
ColoreSel.G = ApriColore.Color.G
ColoreSel.B = ApriColore.Color.B
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim RicercaConclusa As Boolean = False
Dim i As Integer
Dim ApriFile As New OpenFileDialog()
ApriFile.Filter = "Mesh Re-Volt(*.prm)|*.prm"
If ApriFile.ShowDialog() = DialogResult.Cancel Then
MsgBox("Non hai selezionato nessun file", vbExclamation, "Messaggio")
Exit Sub
End If
Dim FileArray() As Byte = My.Computer.FileSystem.ReadAllBytes(ApriFile.FileName)
Dim StopRicerca As Integer = (BitConverter.ToInt16(FileArray, 0)) * 60
For x = 16 To StopRicerca Step 60
For k = 0 To 8 Step 4
FileArray(x + k) = ColoreSel.B
FileArray(x + k + 1) = ColoreSel.G
FileArray(x + k + 2) = ColoreSel.R
Next k
Next x
My.Computer.FileSystem.WriteAllBytes(ApriFile.FileName, FileArray, False)
MsgBox("File scritto con successo", vbInformation, "Scrittura")
End Sub
End Class
Codice: Seleziona tutto
using System;
using System.Windows.Forms;
using System.IO;
namespace WindowsFormsApplication1
{
public partial class Form1 : Form
{
public Form1()
{
InitializeComponent();
}
struct ColoreRGB
{
public byte R;
public byte G;
public byte B;
}
ColoreRGB ColoreSel;
private void pictureBox1_Click(object sender, EventArgs e)
{
ColorDialog ApriColore = new ColorDialog();
ApriColore.ShowDialog();
pictureBox1.BackColor = ApriColore.Color;
ColoreSel.R = ApriColore.Color.R;
ColoreSel.G = ApriColore.Color.G;
ColoreSel.B = ApriColore.Color.B;
}
private void button1_Click(object sender, EventArgs e)
{
bool RicercaConclusa=false;
int i;
byte[] FileArray;
OpenFileDialog ApriFile = new OpenFileDialog();
ApriFile.Filter = "Mesh Re-Volt(*.prm)|*.prm";
if (ApriFile.ShowDialog(this)==DialogResult.Cancel)
{
MessageBox.Show("Non hai selezionato nessun file","Messaggio",MessageBoxButtons.OK ,MessageBoxIcon.Exclamation);
return;
}
FileArray = File.ReadAllBytes(ApriFile.FileName);
for (i = FileArray.Length -1 ; i > 0; i--)
{
for (int x=0; x<=7;x++)
{
if (FileArray[i-x]!=0) break;
if (x == 7) RicercaConclusa = true;
}
if (RicercaConclusa == true) break;
}
for (int x = 16; x < i; x = x + 60)
{
for (int k=0;k<=8;k=k+4)
{
FileArray[x + k] = ColoreSel.B;
FileArray[x + k + 1] = ColoreSel.G;
FileArray[x + k + 2] = ColoreSel.R;
}
}
File.WriteAllBytes(ApriFile.FileName,FileArray);
MessageBox.Show("File scritto con successo","Scrittura",MessageBoxButtons.OK ,MessageBoxIcon.Information );
}
}
}