Even after installing all Antivirus programs it was still slow. I tried several different ones and all were the same.
rproffitt commented: Yes you posted that. Anyhow, try cloning it and test with the clone given the story so far. +6
joshl_1995 22 Twisted Digital
Hello Daniweb Community,
I've finally gotten around to doing it but can someone for the love of god please help me and give me help with fixing my slow ass laptop.
I have only recently purchased it, as soon as I set it up I installed Windows 10 (coming from Windows 8.1) then from there I started installing all the same programs I had on my previous laptop (which is also running Windows 10, but runs fine) and it's just running so slow like it could sometimes take about 5 minutes to load Facebook or even if I go to watch a video on YouTube the video will stop and go to the lowest quality all using Google Chrome.
So whats weird is sometimes I could be just have Spotify and Windows Live Mail running (not fetching emails but just going through them) and the CPU could be bouncing around the 98% mark.
Laptop Details:
joshl_1995 22 Twisted Digital
I've got a working script that is doing exactly what I want but at I said near the beginning I keep getting this result
Notice the liner
The code I'm using is this
Dim img As Image = Image.FromFile(Main.PictureBox1.ImageLocation)
Dim widthThird As Integer = CInt(CDbl(img.Width) / 3.0 + 0.5)
Dim heightThird As Integer = CInt(CDbl(img.Height) / 3.0 + 0.5)
Dim bmps As Bitmap(,) = New Bitmap(2, 2) {}
For i As Integer = 0 To 2
For j As Integer = 0 To 2
bmps(i, j) = New Bitmap(widthThird, heightThird)
Dim g As Graphics = Graphics.FromImage(bmps(i, j))
g.DrawImage(img, New Rectangle(0, 0, widthThird, heightThird), New Rectangle(j * widthThird, i * heightThird, widthThird, heightThird), GraphicsUnit.Pixel)
g.Dispose()
Next
Next
PictureBox1.Image = bmps(0, 0)
PictureBox5.Image = bmps(0, 1)
PictureBox8.Image = bmps(0, 2)
PictureBox3.Image = bmps(1, 0)
PictureBox6.Image = bmps(1, 1)
PictureBox9.Image = bmps(1, 2)
PictureBox4.Image = bmps(2, 0)
PictureBox7.Image = bmps(2, 1)
PictureBox10.Image = bmps(2, 2)
Which is ran on the forms load event. Then I just resize the window like normal (because the picture boxes are anchored)
joshl_1995 22 Twisted Digital
No that won't work, I'm making this for notifications.
In this image
I'm wanting to start with a single image then split it into 9 pieces, so in this image I'm wanting to resize part 2, 4, 5, 6 and 8.
I would like 2 and 8 to stretch width wise, 4 and 6 to stretch height wise and 5 to stretch to fill. Here (I hope) you can see what I'm talking about. 
I hope this helps.
joshl_1995 22 Twisted Digital
Here is a sketchup of the procedure (of how the images are placed and are resized) 
and as you can see even in this example there is a liner of the background fading in.
joshl_1995 22 Twisted Digital
No that didn't work, as I said I didn't want to stretch the image. 
joshl_1995 22 Twisted Digital
Maybe it'll be easier to say I want it to scale, not stretch, scale so like the picture.
So I would like it so I can expand the top, sides and bottom then stretch the center to fill the center.
joshl_1995 22 Twisted Digital
Hello Daniweb Community,
I'm wanting to slice a square image into 9 pieces like below
the code I'm currently using is this
Private Function CropBitmap(ByRef bmp As Bitmap, ByVal cropX As Integer, ByVal cropY As Integer, ByVal cropWidth As Integer, ByVal cropHeight As Integer) As Bitmap
Dim rect As New Rectangle(cropX, cropY, cropWidth, cropHeight)
Dim cropped As Bitmap = bmp.Clone(rect, bmp.PixelFormat)
Return cropped
End Function
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
PictureBox1.Image = CropBitmap(New Bitmap(PictureBox2.Image), 0, 0, 21, 21)
PictureBox3.Image = CropBitmap(New Bitmap(PictureBox2.Image), 0, 21, 21, 22)
PictureBox4.Image = CropBitmap(New Bitmap(PictureBox2.Image), 0, 43, 21, 21)
PictureBox5.Image = CropBitmap(New Bitmap(PictureBox2.Image), 22, 0, 22, 21)
PictureBox6.Image = CropBitmap(New Bitmap(PictureBox2.Image), 22, 22, 22, 22)
PictureBox7.Image = CropBitmap(New Bitmap(PictureBox2.Image), 22, 43, 22, 21)
PictureBox8.Image = CropBitmap(New Bitmap(PictureBox2.Image), 43, 0, 21, 21)
PictureBox9.Image = CropBitmap(New Bitmap(PictureBox2.Image), 43, 22, 21, 22)
PictureBox10.Image = CropBitmap(New Bitmap(PictureBox2.Image), 43, 43, 21, 21)
End Sub
but when I use this method I get this result
for some reason it has a liner on it.
Does anyone know of a soulution to fix this? or if there is another script that'll do this?